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ABSTRACT 

This Diagnostic was designed to test RS03 and RS04 drives. 

The CERS8 Disk Data Test is a series of address and data reliability 
routines which verify to the user that the controller {RH70) and the 
disks (RS03 or RS04) are operating correctly. This test should be 
used in conjunction with the DERSA diagnostic. 



NOfE 

This program will destroy all data on 
the disks. Turn off all drives that you 
do not want to test. 



REQUIREMENTS 



^.^ Equipment 

P0P11 standard computer with a ninimjr of 8K of memory, and an RH70 
controller with an RS05 or an RSOA di'^K. 



2.? Prel minary Programs 
D/RSA 

1. lOADING PROCEDURE 

Use sr^andard procedure for ABS tapes. 
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Description 

^. START IMG PROCEDURE 



'•.I Control SwUch Settings 
See 5.T (a' I donjn tor worst c«ise testing) 
<..? Starting AiJdress 
Program and/or ooerator action 
Load orogram into memory using ABS loader. 
1. Starting address 200. 

A. Set switches (see sec 5.1). All down for worst case 

B. The display on the 11/^5 wiU show the iteration count in 
the left byte and test number in the right. To use, set 
the data display switch to the display position. 

Press start. 

The proqrarr will now map the data buffers in 4K segments on -A- port 
for all menory It will then type out the par*«eters of the data 
butters. The program will only do this the first time it is started, 
^or it stores these addresses and contir^jes using them. To have the 
orogram remap the system, the program must be reloaded. All of memory 
•I) be ♦•ested. You may enter conversation mode and put data buffer 
where you wish and what e^/er si^e you wish. 
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5. OPERATlOfOAL SWITCH SETTINGS 
Switch Settings Are: 

SWvT5> = 1 HALT ON error' 

SW<U> - 1 LOOP ON FLWCTION 

SW<1^> r ' INHIBIT PRINTOUT 

SW<12> = 1 INHIBIT COfV»ARISON 

WITH THIS SWITCH SET. THE 
PROGRAM WILL NOT COMPARE THE 
DATA IT READ FROM THE DISK WITH 
THE KNOWN GOOD DATA. 

SW<IT> - ] HALT ON COMPLETION OF TRANSFER 

SW<TO> = 1 ENTER CONVERSATION MODE 

Sy<09> = 1 LOOP ON ERROR 

SW<07> - 7 WAIT IN WAIT MODE 

PROGRAM RUNS IN A BACKGROUND TEST 
WHILE WAITING FOR INTERRUPT, WITH 
SW SET F>ROGRAM WAITS IN A WAIT 
INSTRUCTION. 

SW<06> - 1 OPTI0H<\L TYPEOUT OF RETRY ERRORS 

SW<05> 1 INHIBIT PASS C(XJNT 

SW<(K> - 1 ALLOWS 8 ERROR TYPEOUTS IN THE 

COMPARE ROUTINE BEFORE EXECUTING NEXT READ 
COMMAND. WHEN SWITCH IS 0, ONLY 1 ERROR 
TYPEOUT IS RECORDED. 

SW<03> - 1 TYPEOUT » OF ERRORS 

SW<02> 1 INHIBIT MEMORY MANAGEMENT 

5W<:01> -.1 DATA TEST ONLY 

SW<00> - ' DROPS DRIVE AFTER ?C ERRORS 
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S.I Data Reli ability Test Mode 

With Sy8 set. the program will set the 'BAI" bit in RHCS2 and transfer 
(AK of data at a time for all patterns except random. Random will be 
executed )s usual with standard buffers. No compares are done In this 
•"Ode of ope'-ation except on random patterns. This option should only 
be used ir data test or conversation mode. When used In conversation 
mode it over rides the non standard word count. You should not select 
a desired disk address in conversation mode for it can produce a disk 
address overflow error tor this data reliability test mode only does 
64K kiord transfers. If Sy8 is changed, while the program is running, 
the program will finish - - pass before executing the switch change. 



5.? Conversation Mode for Program Parameters for Data Test Only 

In conversation node the operator can soecify any one c all of the 
program parameters. 

NOTF 

Once in conversation «node, the only way 
to remap the system is to reload the 
program. To restart the program in 
conversation mode without having to 
reanswer the questions, the starting 
address is 2'0. Reset switch 10. To 
restart the program without having to 
reanswer the port sizing questions, 
restart at 220. Reset switch TO. 
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The p'-ogram wii^ now ask several questions, the table below will hel 
you ansi<er the q^j^stion*.. 



TYPE 

0 



1 

2 
3 
<• 
«; 

6 

7 
10 

t^ 
1? 

15 
76 
17 



TO START AT 
000000 
OPOOOO 
040000 
06X00 
100000 
120000 

uoooo 

160000 
200000 
220000 
240000 
260000 
300000 
320000 
5AU000 
360000 



TYPE TO START AT 



20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
3S 

36 

37 



400000 
420000 
440000 
460000 
500000 
520000 
540000 
560000 
600000 
620000 
640000 
660000 
700000 
720000 
740000 
760000 



TYPE TO START AT TYPE TO START AT 

40 1000000 60 1400000 

41 1020000 61 14200000 

42 1040000 6r 1440000 

43 1060000 63 1460000 

44 1100000 64 1500000 

45 1120000 65 1520000 

46 1140000 66 1540000 

47 1160000 67 1560000 

50 1200000 70 1600000 

51 1220000 71 1620000 

52 1240000 • 72 1640000 

53 1260000 73 1660000 

54 1300000 74 1700000 

55 1320000 75 J 720000 

56 1340000 76 1740000 

57 1360000 77 1760000 



TYPE 

100 

101 

102 

105 

^04 

'05 



TO 



START AT 
2000000 
2020000 
2040000 
2060000 
2200000 
222CO00 



TYPE 
120 
121 
122 
123 
124 



TO 



START AT 
2500000 
25200000 
2540000 
2560000 
20OOOOO 
2620000 
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106 ?240000 

107 2260000 

110 2300000 

111 2320000 

112 2340000 
11^ 2360000 
1H 2400000 
115 2420000 
"•16 2440000 
1 1 7 2460000 



126 2640000 

127 2660000 
1 50 2700000 

131 2720000 

1 32 2740000 

1 33 2760000 

1 34 3000000 
1 55 3020000 
'36 3040000 
137 3060000 



NOTE .-The formuLa to get nLwbers 
to be typed is: Every 4Kboundry end 
m four zeros 
, so disregard the last four digits and 
divid the remaining 
address by two. The resulting ncwber is 
to be typed in for 

that 4K 
bank. 

NOTE: Type only nunbers shown::* 

Type starting 4K bank # for data buffer on port A 

This will determine where your buffer area will start or 
port. Use table dbo>/e 

NOTE: 

Program i* located in 1st 4K bank. 
Therefore, this bank can not be used as 
a bufte'-. 



r 
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SEO 0008 



-A- 



CFRSB-C RH70-RS03-RS(K DATA RELIABILITV DIAG 
Rescript ion 



Page 9 



EXAMPLE: 



nxxxxxx 

X X 
X CPU X 
X X 

xxxxxxx 

X 
X 



8K 



xxxxx 

XMEMX 

xxxxx 

X 
X 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



xxxxxx 

X RH X 

xxxxxx 

X 

X-A-PORT 



XXXXXXXXXXX 16K 
X X 
X BANK 5 X 
X X 
XXXXXXXXXXX 12k 
X X 
X BANK ? X 
X X 
XXXXXXXXXXX 8k 
X X 
X BANK 1 X 
X X 
XXXXXXXXXXX 
X X 
X BANK 0 X 
X PROGRAM X 
XXXXXXXXXXX 0 



These answers given below will test the cent fgurat ion in the 
given example. Answers: 

To Test -A- port 

2) 1 
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SEO 001 C 


Program Conwersat '"on 




MUlTI drive mode? (YES-NO) 




*\jlti dist mode is a mode in the program which allows the 
operator to exercise all the disks on the system without 
re-starting the program. The program, after exercising one 
disk will report a message telling the operator which disk 
will be selected next, and then the program will exercise 
that disk. When a complete pass is accon^Jlished, a pass 
complete will be reported and the test will recycle. 




It the answer to the multi drive mode was 'NO", the following 
question is asked. 




TYPE UNIT # 




The operator can now select the unit he wishes to test by 
typing the unit nunber. 




OPTIONAL WORD COUNT (YES-NO) 




If the operator answers "NO" to this question the next 
question will be deleted from the conversation. 




WD CT 




The operator can specify any length transfer from 1(8). 

The normal transfer length is n(8) words 

where n is the maximun buffer size for the available core. 




This program maps the system in segments. If there is a 
IK block of memory on the system that you t^yjld like to 
reach^you can type in that bank # and then specify a wc 




If the irford count nunber typed, is larger than the core size 
given in the setup routine, the question will be repeated. 




OPTIONAL DSK ADDR (YESHyiO) 




It the answer to this question is no, the whole disk will be 
written and the next question is not asked. 




DSK ADDR 




^he operator can now specify the starf'ng sector 
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SEO 0011 



DATA PATTERN NO.? 

If no optional data pattern is requested (.M22) the program 
wUl execute the ♦ollowing l'«t of data patterns. 



0 




000000 


1 




1????7 


2 




03K65 


3 


- 


066666 


H 




100001 


5 


= 


107070 


0 






7 




052525 


10 




125252 


11 




177737 


12 




K63K 


13 




136363 


U 




063636 


15 




000001 


16 




100005 


17 




155555 


20 




133333 


21 




Random data 


22 




Run all data patterns under 
program control 



In this section of the program parameter conversation mode, 
the operator can select any one or all three of the control 
functions to be executed. The normal sequence of disk 
functions under program control are WRITE. URITE CHECK, and 
then READ. By entering the conversation mode the operator 
has gained complete control over the disk functions. He must 
specify yes or no to all of the following questions. 

URITE? (YES - NO) 

READ? (YES - NO) ; 
WRITE CHECK? (YES - NO) 

To perform a WRITE CHECK only, the operator must first write 
some known data on the disk. This course of action also 
orevails for a READ or.ly operation. 

» If an error occurs in the line the operator is typing, 

depress the rub-out key and retype answer. 

ALL ANSWERS SHOULD BE FOLLOWED BY A CARRIAGE-RETURN 



5.5 Routine Abstracts 
ADDRESS TEST 



This test writes each sector with its cnm address then reads it back 
and compares it tor the correct data. 
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RANEX - Random data, address and word count test 

This routine tests the ability of the system to access random 
addresses with random data. Two sectors of random data are written at 
a startina random address on the disk. It is then write checked and 
read. All errors are reported. This is repeated 1000 times. 

DATA RELIABILITY > data pattern test 

In this portion of the test, the reliability of the disk surface is 
tested by WRITE, WRITE CHECK, and READ functions. The routine first 
writes the complete surface with a set data pattern, then a write 
check of the complete surface is accomplished, thus reporting all 
errors between the data written and the data in memory. The disk is 
then read. The data read from the disk is compared against the known 
data pattern. This compare is taking place the same time the disk is 
being read. The buffer is cleared as it is being compared. 

5.4 Subroutine Abstracts 

5.4.1 SCOPE 

This subroutine call is placed between eacn subtest in the instruction 
section. It records the starting address of each subtest as it is 
being entered in location '1-AD". If a scope loop is requested, the 
currert subtest will be looped upon. The contents of LAO may be used 
to determine the last subtest successfully completed. 

5.4.? HLT 

This routine prints out an error message (See 6.1). To inhibit 
typeouts, put Sw<13> on a 1. 

5.4.5 TRAPCATCHER 

A ".*2" - '>iALT" sequence is repeated from 0 - 776 to catch afsv 
kjTexpected traps. Thus any unexpected traps or interrupts will HALT 
at the >/ector ♦ 2. 
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6. 



ERRORS 



6.1 Error Printout 



The format is as follows: 



ADR 
GOOD 



CS1 = CS2 = ER 

= BAD = 



Where: 



CS1,CS2.ER etc. 

Good ' 

Bad 



= RSn Disk Registers. 
- Expected Data. 
= Data Received. 



To find the failing test, look at the listing above the address typed. 

If sue is set, a drive will be dropped from the test sequence after 20 
errors. The program will state wnich drive was dropped and on which 
pass U was dropped. If all the drives have been dropped, the proQr»n 
wUl type "TESTING UNIT 0" and HALT", indicating that it could^not 
find any more drives on the system to test. 



7. RESTRICTIONS 
None 



8. MISCELLANEOUS 



8.1 Execution Time 

Pass complete will be typed out dt end of pass. It wilt take between 
15 to u'O minutes to complete a pass, add 30 seconds for each AK. for 
data test. 



8.2 Stack Pointer 

Stack is initially set to 500 



8.5 =»Oi*r 

Th» starting ddores*. tc th« write Power F*ii >st is ?70. A iMssdoe 
*Mt be tvoM out to*d Sw with ^ii » «nd cont." The cper*tor now h«s 
to io«J the ^yi't « octei into the Su reaister ir. bits 00-01 and 02. 
^her hu cort'nue. T»ie orogrw will tell the operator when to power 
ooMi. When the syste<« IS powered up, only one error is allowed. The 
starnnq address tor the writechech Power Fail Test is 274. Here as 
jn the wr^te Power 'a' Test, the program tell the operator when 
Oo»«e»' down, wher rhe cowe"- --omes BacK, no errors should occur. 
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CERSBC.PIl 


14 -AUG- 78 


1 
? 






3 












5 






6 






7 




100000 


8 




040000 


9 




020000 


10 




C 0000 


11 




004000 


12 




002000 


13 




001000 






000400 


15 




000200 


16 




0001 UO 


17 




000040 


18 




oooozo 


19 




OQOOlO 


20 




000004 


21 




00000^ 


22 




OOOuOl 


23 




000000 


24 




OOOOho 


25 


000046 


Oli^ /^o 


26 




0000^^ 


27 


000052 


UhOOOO 


28 






29 




000^00 


30 


00020C 


00013r 


31 






32 




000^:10 


33 


000210 


012^06 


34 


000214 


00015^ 


35 






36 






3^^ 


000220 


A1 "i^AX 


38 


000224 


AAA1 ^7 


39 






40 




000230 


41 


000230 


0001 5r 


4i 






43 




000260 


44 


000260 


OOOl S/' 


*l J 






46 






47 




\AAJCV* 


48 


QO02(A 


000137 


49 






SO 




000270 


51 


000270 


000137 


5? 




00027U 


55 


000274 


000137 
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.TITLE CERS8-C RH70-RS03 DATA AND RELIASILlTy TEST 

;C0PyR]GHT 1973.1974.1975. DIGITAL EQUIPMENT CORP., MAYNARD. MASS. 

.PROGRAM BY STANLEY HARACKIEWICZ 



SWITCH 



USE 



SENDAD 
Bin4 



001234 



000500 
0031 76 



000500 
002322 



015142 
003252 

005130 

012334 
012670 



SW15= 

SWH- 

SW13= 

SW12= 

SW11 = 

SW10= 

SW9= 

SW8= 

SW7= 

SW6= 

SW5= 

SW4= 

SW3- 

SW2= 

SW1 = 

SW0= 

0 

46 

52 



200 
JMP 

210 
MOV 
JMP 

220 
MOV 
JMP 

230 
JMP 

260 
JMP 



264 
JMP 

270 
JMP 
274 
JMP 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

1C 

4 

2 

1 



»lf8EGIN 



#500, SP 
aCTADTSr 



#500, SP 

a#Ai 



a«RLDR 
a#ADTL 

a«RAN£L 

a#PFTi 
a«pFT2 



HALT ON ERROR 

LOOP ON FUNCTION 

IWI8IT ERROR TYPEOUTS 

INHIBIT COMPARISON 

HALT ON COMPLETION OF TRANSFER 

CONVERSATION MODE 

LOOP ON ERROR 

WAIT IN BACKGROIWD TEST 
OPTIONAL TYPE OUT OF RETRY ERRORS 
INHIBIT PASS COUNT AND UNIT # 

ALLOWS 8 LOCATIONS TO BE TESTED IN COMPARE ROUTINE 

TYPE OUT TOTAL # OF ERRORS 

INHIBIT MEMORY MANAGEMENT 

DATA TEST ONLY 

DROP DRIVE AFTER 20 ERRORS 

TRAP CATCHER FROM 0 - 776 

HOOKS FOR ACT 11 



.•START TEST 



.•SETUP STACK 
.-RESTART ADDR 



.•CONVERSATION MODE WITHOUT 
.-DATA BUFFER QUESTIONS 



.-RESTORE LOADER 
TRACK AND SECTOR SELECT TEST 

WRITE EACH WORD ADDR ON ITSELF AND READ IT BACK 
LOCATION 11S0 CONTAINS UNIT NO. 

.RANDOM ADDRESS. DATA TEST 
.-LOCATION 1150 CONTAINS lf<IT NO. 

.•DISK WRITE POWER FAIL TEST 

.•DISK WRITE CHECK POWER FAIL TEST 
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55 

56 000300 

57 000302 

58 000304 

59 000306 

60 000310 

61 000312 

62 0003H 

63 000316 
6<. 000320 

65 000322 

66 00032A 

67 000326 
6^ 000330 

69 000332 

70 000334 

71 000336 

72 000340 
73 

74 
75 

76 000342 

77 000350 

78 000356 



000000 

}77777 

031463 

066666 

100001 

107070 

070707 

052525 

125252 

177737 

1463K 

136363 

063636 

0O0OC1 

100005 

155555 

133333 



012777 000040 
013777 001164 
000002 



000464 
000456 



SCO 0016 



;RH70 DATA PATTERNS 



PATO 
PAT1 
PAT2 
PAT3 
PA 74 
PAT5 
PAT6 
PAT 7 
PATIO 
PATH 
PAT12 
PAT 13 
PAT 14 
PAT 15 
PAT16 

pAn7 

PAT20 
;PAr?1 



0 

177777 
031463 
066666 
100001 
107070 
070707 
052525 
125252 
1 77737 
146314 
136363 
063636 
000001 
100005 
155555 
133333 
RANDOM DATA 



.-CLEAR ALL REGISTERS 
.CLRDV: «0V #40.aRSCS2 

MOV UM*l1.aRSCS2 

RTI 



.CLEAR ALL REG 
.-GET UNIT « 
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79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
01 
92 
93 
94 
95 
96 
97 
98 
99 
IOC 
101 
T02 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
lU 
115 
M6 
117 
118 
TT9 

vc 



17757? 
177574 
177576 
172516 

172300 
172302 
1723W 
172306 
172310 
'72312 
1"2314 
172316 

172^20 
172322 
172524 
172326 
172330 
172332 
172334 
172336 

172340 
172342 
172344 
172346 
172350 
1 72352 
172354 
172356 

172360 
172362 
172364 
172366 
172370 
172372 
172374 
V2376 



,S8TTL 
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%Kmi - KERNAL MEMORY WmomW REGISTER ASSIGAMENTS 

SKTflR - KERNAL MEMORY MANAGEMENT REGISTER ASSIG»#1ENTS 



SEQ 0017 



SR0=1 775 72 
SR1=177574 
SR2=1 77576 
SR3= 172516 



KIPDRO^ 
KIPDR1- 
KIPDR2 
KIPDR3- 
K1PDR4. 
KIPDR5 
KIPDR6= 
KIPDR7: 

KDPDR0= 
KDPDR1= 
KDP0R2= 
KDP0P35 
KDPDR4: 
KDPDR5= 
KDPDR6=: 
KDP0R7: 



=172300 
=172302 
: 172304 
=172306 
= 172310 

:172312 

= 172314 
0 72316 

=172320 
=172322 
172324 
172326 
172330 
172332 
172334 
172336 



KlPAftO=l 
K]PAR1=1 
KIPAR2=1 
KIPA«3=1 
KIPAR4=1 
KIPAR5=1 
K1PAR6-1 

K0PAR0=1 
)CDPAR1=1 
K0PAR2=1 
KDPAR5=1 
KDPAR4=1 
KDPAR5=1 

KDPAWsl 
pr DP Aft 7=1 



72340 
72342 
72544 
72346 
72350 
72352 
72354 
72356 

72360 
72362 
72364 

7|i70 
7237^ 
72374 
72376 



.•ADDRESS OF MEM MO^T REGISTER SRO 



•ADDRESS OF MEM MOIT REGISTER SR3 

.ADDRESS OF KERNEL T PAGE 
.DESCRIPTOR REGISTERS 



SRI 
SR2 



.ADDRESSES Cf KERNEL 'D* PAGE 
.DESCRIPTOR REGISTERS 



; ADDRESSED OF KERNEL T PAGE 
;4DftESS REGISTERS 



;AOORtSSES 0»^^ KERNEL 'D* PAGE 
.ADDRESS REGISTERS 



CERSB-C RH70-RS05 DA^A AND RELIABILITY TEST 



tc«bBC .PI 1 


l<i--AUvj~r O 


1 31 




1 05 




1 

ICJ 


1 rvz.fvvi 
1 UhUUU 


1 5/. 


\ 1 f 1 ro 


1 OK 


1 777 7<L 

i A r f f o 


1 CO 


1 77^7n 




1 77^ 7n 


1 5a 




1 50 




1 v> 




1 Xl 




1 X3 

< JC 


fVYWi? 


"i 








1 ^'i 








1 ^7 




' JO 




1 








1^.1 


VAAA/cv 






■ ••J 


vAA/ 1 \J\J 












oninoo 

VA/ 1 VW 




\J\JC. \J\J\J 


148 


004000 


149 


010000 


150 


020COO 


151 


040000 


152 


^00000 


153 


000001 


154 


000000 



GOOD- 
BAD= 



fWCVn 30A(1052) 18-AUG-78 08:26 PAGE 5 

$W«f1R - KERNAL MEMORY MANAGEMENT REGISTER ASSIGMiENTS 



SEO 0018 



ly- 


1 

1 


IkllTAl 1 7C crtQ mtlitct 
iNi IMLJ^C rUn IVtWIM 


Ul T 
ML 1- 


CMT 






\ f f f f O , 


• portrrccno ctatiic 




PC 




CUP- 


If f jr \J 


owl 1 Ln nCUiOICn 




-CLID 


niCPlAV RF^ICTFP 


DCLL*- 


7 


'BELL 






■RD - OFF IMF RFHKTFR^ 


R1 = 


t1 


ftl 




1? 


•R2 








R4= 




•R4 






'R5 


J' 




•R^ - CTArK POINTFR 


pr- 

r v — 


17 


•07 . PROGRAM fOLMTFR 


BI TO- 


1 


-atr POLIATF^ 




2 




HI T2= 








10 






20 




BI T5= 


40 




BIT6= 


100 




BJ T7= 


200 




BIT8= 


400 




B1T9= 


1000 




BIT10= 


2000 




BJT11= 


4000 




Bin2= 


10000 




BIT13- 


20000 




BITlAr 


*0000 




B]T15= 


100000 




Rl 


;F0R GOOD DATA 


RO 


.FOR BA& DATA 



CE«S8-r RM70-RS03 DATA AND RELIABILITY TEST 
CERSBC.P11 U-AUG-78 08:?9 



155 
156 

157 000510 

158 000516 

159 00052^ 

160 000532 

161 0005AO 
162 

163 0005A1 

164 000546 

165 000554 
166 

167 000561 

168 000566 
■"69 000574 

170 000602 

171 000610 

172 000616 
173 

1 74 000620 

175 000626 
176 

177 000630 

178 000636 
179 

180 000642 

181 000650 

182 000656 
183 

184 000657 

185 000664 
186 

187 000670 

188 000676 
189 

190 000702 

191 000710 

192 000716 

193 000724 
194 

195 000730 

196 000736 

197 000744 

198 000752 

199 000757 

200 

201 000763 

202 000770 
203 

?C«. 



000510 

005015 
020104 
047516 
051105 
000 

015 
046440 
051124 

015 
020104 
052111 
052111 
042116 
000124 

005015 
000040 

051127 
051105 

051127 
045503 
000 

122 
051105 

005015 
046517 

005015 
042526 
042522 
052103 

005015 
020104 
044506 
044522 
015 

040 
020122 

0007/6 
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WACY11 30A(1052) 18-AUG-78 08:26 PAGE 6 

SKMiR - KERNAL MEMORY MANAGEMEMT REGISTER ASSIGAWENTS 

510 



SEO 0019 



044524 
052517 
04u440 
052522 



0464^2 
046507 
050101 

046012 
055523 
020110 
021440 
041440 



040504 



052111 
000122 

052111 
042440 



040505 
000122 

040522 
000040 

042522 
042522 
051124 
000040 

047503 
047516 
042116 
042526 
005012 

054450 
0245^6 



042515 
020124 
052116 
052120 



046505 
020124 
000 

040517 
053440 
047125 
040440 
047117 



040524 
020105 



020105 
051122 



NOINT: .ASCIZ <1 5><12>"TIMED OUT NO INTERRUPT' 



MTRAP: .ASCIZ <15><12>'11EM MGMT TRAP' 



LOADSW: .ASCIZ <1 5><12>* "LOAD SW WITH UNIT # AND CONT" 



DATA: .ASCIZ <15><12>'1>ATA " 



WRTERR: .ASCIZ *\JR]TE ERR" 



WCKERR: .ASCIZ '\fim CK ERR* 



020104 RDERR: .ASflZ ''^EAD ERR' 



042116 RANDM: .ASCIZ <l5><12>'1»iU«WM " 



047503 RfCOV: 

020104 

020131 



046125 NOFND: 

020124 

042040 

000 

000 CRLFLf 

0i74'.0 YURN: 
000 

f 

• EVEN 



.ASCIZ <15><12>"»»ECOVERCO RETRY CT " 

.ASCII <15><12>*tOUlD NOT FI»« DRIVE' 

.ASCIZ <15><1?><12> 

.ASrJZ " <Y Oft N)" 



CE»»SB-C RH7O-RS03 DATA AND RELlABlLlTy 
CERSBC.P11 K-AUG-78 08:29 



206 
207 

208 001000 

209 001 0C2 

210 001004 

211 001010 

212 001012 

213 0010U 
2K 001016 
215 001020 
216 

21/ 001022 

218 001 02<. 

219 001026 

220 001050 
221 

222 
223 
22A 
225 
226 

227 001032 

228 001034 

229 001036 

230 001040 

231 001042 

232 001044 

233 001046 

234 001050 

235 001052 

236 001054 

237 001056 

238 001060 

239 001062 

240 001064 

241 001066 
242 

243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 

255 001070 

256 00' 072 



001000 

000000 . 
000000 

000000 000000 

000000 

000000 

001000 

177564 

177566 

000000 
000000 
000000 
000000 



172040 
172050 
172042 
172044 
172046 
172052 
172054 
172056 
172060 
172062 
172064 
172066 
172070 
1 72072 
000204 



000002 
000004 
000010 
000020 
000040 
000100 
000204 
000220 
000240 

000206 
000200 



TEST 



ERRORS: 

PCNT: 

LAD: 

HLTAOR: 

FILCHR: 

TPS- 

TPS: 

TEMPI 
TEW>2 
TEMP5 
TEMP4 



H 2 

MACVn 50A(1052) 18-AUG-78 08:26 PAGE 7 

SKTTW - KERNAL MEWRV MANAGEMENT REGISTER ASSIGNMENTS 



SEO 0020 



1000 

0 
0 

0.0 

0 
0 

1000 
1 77564 
1 77566 

0 
0 
0 
0 



LH = ITERATION COUNT ;RH = TEST NO. 

ERROR COUNT 

2 WORD PASS COIMT 

LOOP ADDRESS FOR SCOPE 

ADDRESS OF LAST HLT INSTRUCTION EXECUTED 
FILCHR=0 (CHAR) ;FILCHR*1=2 (COUNT) 
OUTPUT STATUS REGISTER 
OUTPUT SUFFER 



.•DISK I/O REGISTERS 



RSCS1 : 
RSCS2: 
RSWC 
RSBA 
RSDA 
RSOS 
RSER 
RSAS 
RSLA 
RSD6 
RSMR 
RSDT 
RSBAE 
RSCS3 
RSVEC 



172040 
•72050 
172042 
172044 
172046 
172052 
172054 
172056 
172060 
172062 
1 72064 
1 72066 
172070 
172072 
204 



; CONTROL 



DISK CONTR(X ♦ STATUS REGISTER 
DISK CONTROL * STATUS REGISTER 
WORD COIMT REGISTER 
8US ADDRESS 

DISK ADDRESS (DESIRED ADDRESS) 

DRIVE STATUS 

ERROR REG. 

ATTENTION SlffMRV 

LOOK AHEAD 

DATA BUFFER REGISTER 

MAINTENANCE REGISTER 

DRIVE TYPE REGISTER 

BUS ADDRESS EXTENSION 

AND STATUS 3 

INTERUPT RSVEC 



;8IT ASSIGW1ENTS FOR ERROR TYPE OUTS 



06=2 

DA=4 

WC=10 

BA=20 

DS=40 

AS=100 

LA=204 

MR=220 

DT-240 

STATUS: 206 
PRIORI TY:8:T 7 



DATA BUFFER 
DESIRED ADD 
WORD COUNT 
BUS ADDRESS 
DRIVE STATUS 
ATTENTION SlffWRY 
LOOK AHEAD 
MAINTENANCE 
DRIVE TYPE 



.•DISK INTERRUPT STATUS 
;D1SK PRIORITY LfVE^ 



CERSB-C RH70-RS03 DATA AND RELIABILITY 
CERSBC.PII K-AUG-78 08:29 



TESl 



MACVn 30A(1052) S8-AU6-78 08:26 PAGE 8 , 
JSlR - KERNAL MEMORY MANAGEMfcNT REGISTER ASSIGWIENTS 



SEO 0021 



257 
258 
259 
260 
261 
262 
265 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 

277 

278 

279 

280 

281 

282 

283 

28A 

285 

286 

287 

288 

389 

290 

291 

292 

295 

294 

295 

296 

297 

298 

299 

500 

501 

302 

505 

30<. 

305 

306 

507 

508 

509 

510 



001074 
001076 
001100 
001102 
001104 
001106 
001110 
001112 
001114 
001116 
001120 
001122 
001124 
001126 
001150 



000006 
000000 
000250 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

ooooco 

000000 



RW=6 

UP=0 

MMVEC=250 
STAWEM: 0 
SAVAST: 0 
ST8C0M; 0 
SAVCPU: 0 
SAVMGA: 0 
SAVMGB: 0 
SAVMGC: 0 
SIZEAP: 0 
SIZE8P 
W0CT8: 
A081: 
VADDfi: 
PMADOR 
FLAG2: 
DROP: 



R/U JN PDR REG 

UP BiTY IN PDR REG 

ADDR OF MEM MGMT ERROR TRAP 

STARTING LOC FOR -A- PORT 

SAVE LOC FOR STAMEM 

STARTING LOC FOR -6- PORT 

SAVE LOC FOR CPUBM 

STARTING ADDR FOR -A- PO«T WITH MEM MGMT 
STARTING ADDR FOR 8 PORT W/MEM MGMT 
STARTING LOC FOR CPIJ W/MEM MGMT 
SIZE OF A PORT 
SIZE OF B PORT 
WC FOR A PORT 

FLAG FOR PORT BEING TESTED 
VIRTUAL ADDR 
PHYSICAL ADDR 

FLAG FOR RESTART AND FOUND DRIVE 
BAD IWITS ON SYSTEM THAT GET OlflPED 



DISCRIPTION OF FLAG2 



81 TO = RESTART 

81 Tl = FOUND DRIVE 

81 T2 = ERROR DO A CRLF FOR 1«1T » 

81 T5 = DOING COMPARE 

81 T4 = SET A16 IN CSl 

8IT5 = SET A17 IN CSl 

81 T6 = SET IF MEMORY HAS ALREADY BEEN fM> 

81 T7 = WHEN SET HAKE WC UP TO 28K 

8IT8 = FOLWD MEMORY ON -6- PORT 

BIT9 = POWER DID FAIL ^ ^ 

8IT10 = WAITING IN BACKGROUND TEST 

81 Til = PARITY ERROR ROUTINE 

8IT12 = POWER FAIL TEST 

8IT15 = IN MAP ROUTINE , 

8IT14 = IN POWER FAIL OR CONVERSATION MOOF 
8IT15 = ERROR IN POWER FAR 

DISCRIPTION OF FLAG 

81 rO = USED FOR WRITE COUNTER 

81 Tl = USED FOR WRITE COUNTER 

81 T2 = TRANSFER MODE 64IC 

81 T5 = OPTIONAL DMA 

81 T6 = TEST -e- PORT 

8IT7 = LAST DISK BUFFER FLAG 

81 T8 = PROGRAM IS IN ADDRESS OR RANDOM ^tS' 

81 T9 = ERROR DURING TRANSFER 

8IT10 = DATA TEST ONLY 

8IT11 = MULTIPORT 

8IT12 = READ 

8IT15 = WRITE CHECK 

8IT14 = WRITE 

8IT15 = PROGRAM CONTROL MODE 





P11 H-AUG-78 


^1 1 






J 1 C 








001^32 


000000 




001 ■'34 


000000 


J 1 J 


001 ■'36 


000000 




001140 


000000 


XI 7 


001142 


000000 


X1R 


001144 


000000 


XI Q 


001146 


000000 


■on 


001150 


000000 


JC 1 


001152 


000000 




001154 


000000 


OX 

JCJ 


001156 


000000 


JCH 


001160 


000000 


X?S 


001162 


000000 


XPA 


001164 


000000 


X?7 


001166 


000000 


X?R 


001170 


000000 


XPQ 


001172 


000000 


XXfl 


001174 


000000 


XX"* 


001176 


000000 




001200 


000000 


XXX 


001202 


000000 


XX4 


001204 


000000 


xxs 


001206 


000000 




001210 


000000 


XX7 


001212 


000000 




001214 


000000 




001216 


000000 




001220 


000000 




001222 


000000 




001224 


000000 




















546 


001226 


000000 




C01230 


000000 


348 


001232 


000000 


349 




000004 


350 




177740 


351 




177742 


352 




177744 
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TEST MACY11 30A(1052) 18-AUG-78 08:26 PAGE 9 

SKMMR - KERNAL MEMORY MANAGEMENT REGISTER ASSIG^#1ENTS 



SEO 002? 



;RH70 DEDICATE REGISTERS (MEMORY) 



FLAG: 
URDCT: 
TRACK : 
DMA: 
PATNU: 
BUF : 
TDMA: 
SURDCT; 
ERCOUNT:0 
SAVE : 0 
HRDER: 
BLOCK: 
PASSC ; 
UNNUM: 
UNITSV: 0 
UNCMP: 0 
RS04DT: 
NU«$: 
CMD: 
SWITCH: 
INTFLG: 
LOPCNT: 
WRITER: 
WCERR: 
READER: 0 
COMERR: 0 
WAVA: 
SAVWC: 
FLAG3: 
SAVWCe: 0 



0 
0 
0 
0 
0 
0 
0 
0 



0 
0 
0 
0 



0 
0 
0 
0 
0 
0 
0 
0 



0 
0 
0 



TEST REGISTER 

WORKING WORD COUNT 

WORKING DAE 

WORKING DAR 

DATA PATTERN INDEX 

WORKING DATA BUFFER (OUT-IN) 

TEMP DAR 

STANDARD WORD COUNT 
ERROR COUNT FOR MESSAGES. 

POINTER FOR HARD ERROR 



LMIT CIWRENTLY BEING TESTED 
SET BIT=lf<IT ON BUS 
FOR COMPARING FOR # OF DEVICE 
FLAG FOR RS04 

WORK LOC FOR NlfBER IM^JTS 

LOC FOR CS2 COMMANDS 

FLAG FOR WHICH RANDOM NUMBER GEN 

FLAG FOR INTERRIFT 

ERROR FLAG AND LOOP COUNTER FLAG 

CONTAINS » OF WRITE ERRORS 

CONTAINS « OF WRITE CHECK ERRORS 

CONTAINS » OF READ ERRORS 

CONTAINS « OF COMPARE ERRORS 

MEM NGMT AVAIL>«LE INDICATOR 

SAVE LOC FOR CONVERSATION WC ROUTINE 

LOOP IN ADDRESS * RANDOM TST FLAG 

SAVE UC SIZE FOR -6- PORT 



;RH70 work REGISTERS 

.(CAN BE CHANGED IN ANY ROUTINE) 

WORK: 0 

WORKi : 0 

W0RK2: 0 

ERRVEC=4 

LERADD-1 77740 

HERADD^I 77742 

MEMERR^I 77744 



CERS8-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSeC.PIT 14-AUG-78 08:29 



353 00125A 

354 001240 

355 001246 

356 001254 

357 001262 

358 001270 

359 001276 

360 001304 

361 001310 

362 001314 

363 001322 

364 001330 

365 001354 

366 001342 

367 001344 

368 001350 

369 001352 

370 001360 

371 001364 

372 001370 

373 001374 

374 001402 

375 001404 

376 001412 

377 001420 

378 001424 

379 001430 

380 001432 

381 001434 

382 001442 

383 001446 

384 001454 

385 001456 

386 001462 

387 001466 

388 001472 

389 001500 

390 001502 

391 001510 

392 001516 

393 001522 

394 001526 

395 001534 

396 001542 

397 001544 

398 001552 

399 001560 

400 001562 

401 001570 

402 001574 

403 001602 

404 001610 

405 001614 



012706 

012737 

012737 

012737 

012737 

012737 

012737 

005037 

005037 

042737 

042737 

005037 

032737 

001002 

004737 

000005 

012737 

004537 

005037 

005037 

032737 

001021 

012737 

012737 

005037 

005137 

000401 

02262b 

012737 

005037 

032737 

001002 

000137 

004737 

004737 

032737 

001003 

013737 

052737 

005037 

005037 

013737 

032737 

001403 

052737 

032737 

001015 

052737 

004537 

012737 

012737 

000137 

000137 



000500 
016350 
000340 
016014 
000340 
016744 
000340 
001000 
001010 
177677 
177776 
001222 
000001 

020000 

000340 
012300 
001216 
001120 
000004 

001432 
000340 
177572 
001216 



000006 
000006 
000001 

020070 
011464 
015170 
000001 

001150 
000001 
001140 
001142 
001150 
000002 

002000 
002000 

074000 
010214 
017426 
000340 
003176 
002220 



000024 
000026 
000030 
000032 
000034 
000036 



001132 
001126 

001126 



177776 



177570 

000004 
000006 



BEGIN 



1$; 



5$: 

000004 4$: 
001126 3$: 



001126 

001220 
001126 



001134 
177570 

001132 
177570 

001132 

000004 
000006 



CALM: 
CALM1 



3$: 



21: 



1$: 



K 2 

30A(1052) 18-AU6-78 08:26 PAGE 10 
- KERNAL MEMORY MANAGEMENT REGISTER ASSIG»MENTS 



SEO 0023 



#500. SP 

*. POWER. a#24 

#340.a»^6 

#.HLT.a<r30 

#340.a#32 

#.TftAP.a#34 

#340,a#36 

ICNT 

LAD 

*177677.FLA6 
*1 77776. FLAG2 
FLAG3 

#8IT0.FLAG2 
1$ 

PC.LDR 

*340,PS 
R5.ERRCL 
MMAVA 
A0B1 

*8IT2.SWR 
3$ 

#5$.4 

*340.6 

ftrSRO 

MMAVA 

4S 

(6)*. (6)* 

*6.4 

6 

4f8J T0.FLAG2 

CALM 

SI22AP 

PC.a»£XTME« 

PC.rWMK 

*8JT0.FLA62 

3$ 

SURDCr.SAVUC 

*8IT0.fLAG2 

DMA 

PATNU 

SURDCT,WRDCT 

*8]T1.SWR 

2$ 

*8IT10.FLAG 

4f8inO,SUR 

IS 

#74000- FLAG 
R5,REST0R 
#TIE0UT,ERRVEC 
*340.ERRVEC*2 

ADTST 



SET STACK TO *•* 500 
SET UP PF VECTOR 
LOCK OUT THE WORLD 
SET EMT VECTOR 
LOCK UP 

SET TRAP VECTOR 
LOCK UP 
INIT ICNT 
INIT LAD 
CLEAR FLAG 

CLEAR ALL EXECPT RESTART 

CLEAR LOOP IN ADDRESS ♦ RANDOM TST FLAG 

IS THIS THE FIRST TIME? 

NO 

SAVE LOADER 

CLEAR THE WORLD 

LOCK UP INTERRUPT LEVELS 

CLEAR ERROR COLWTER ♦ PASS CNT 

CLEAR MEM MGMT FLAG 

TEST A PORT FIRST 

WANT MEM MGMT? 

NO 

SET TIMEOUT TRAP 
SET PS 

IS MEM MGMT AVAILABLE? 

YES 

CONT 

CLEAR STACK 

RESET 

TRAP 

IS THIS THE FIRST TIME 
NO 

SJ2E BUFFERS 

SET UP DATA BUFFERS 

TURN ON PARITY MEM 

1ST TIME ? 

NO 

SAVE WC FOR CONVERSATION MODE COMPARE 
SET 1ST TIME FLAG 
CLEAR DAR REGISTERS 
CLEAR PATTER COUNT 

DATA TEST ONLY? 
NO 

YES 

ENTER CONVERSATION MODE? 
YES GO TO CONVERSATION MODE 

RESTORE ORIGINAL WD CNT 



.-ENTER CONVERSATION MODE 



CERSB-C RH70-RS03 DATA AND RELIABILITY TEST 



CERSBC.Pn K-AUG-78 08:29 




406 










407 










408 






000010 




409 


001620 


012701 




410 


001624 


042737 


000002 




411 


001632 


012777 


000000 


1 771 74 

\ 1 t I'M 


412 


001640 


012777 


000007 


1 77?nn 


413 


001646 


005301 






4'4 


001650 


001403 






415 


001652 


005277 


177156 




416 


001656 


000770 






417 


001660 


017737 


177164 


nni 1 AA 

\J\J \ \ ou 


418 


001666 


043737 


001130 


\J\J 1 f VJU 


419 


001674 


012737 


000401 


()0i 1 7n 


420 


001702 


012737 


000000 


001 1 A4 


421 


001 710 


032737 


000040 


1 77570 

If f J f w 


422 


001716 


001015 






423 


001720 


104402 


001724 




424 


001744 


042737 


000004 


001 1 ?fi 


425 


001752 


033737 


001170 


001166 


426 


001760 


001463 






427 


001762 


013777 


001164 


177044 


428 


001770 


005037 


001172 




429 


001774 


005777 


177060 




430 


002000 


001417 






431 


002002 


022777 


000001 


1 77050 


432 


002010 


001413 




177040 


433 


002012 


022777 


000002 


454 


002020 


001404 






435 


002022 


022777 


000003 


1 77030 


436 


002030 


001037 






437 


002032 


052737 


■\77777 


001172 


458 


002040 


032737 


040000 




439 


002046 


001401 






440 


002050 


000207 






441 


002052 


032777 


000200 


176764 


442 


002060 


001423 




1 77570 


443 


002062 


032737 


000040 


444 


002070 


001016 






445 


002072 


032737 


000004 




446 


002100 


001402 






447 


002102 


104402 


000757 




448 


002106 








449 


002106 


015746 


001164 




450 


002112 


104406 






451 


002114 


104402 


000040 




452 


002120 


042737 


000004 


001126 


453 


002126 


000430 







L 2 

MACY11 30A(1052) 18-) 
SKffIR - KERNAL MEMORY 



.•FIND OUT HOW MANY PRIVES 
;FIRST TEST RSAS 



ORVENO: 



TRY: 



DVNUM: 



STTEST; 
UNTYP: 



3S: 



6$: 
1S: 



5$: 



4$: 



MOV 


#8. ,R1 


BIC 


ArBJil FLAG2 


MOV 


#0.aRSCS2 


MOV 


4r7.aRSER 


DEC 

W t V 


R1 


BEQ 


DVNUM 


INC 


afiscs2 


BR 


TRY 


fioy 


aRSAS.UNI TSV 


BIC 


DROP, UNI TSV 


MOV 


#401.UNCMP 


MOV 


#0,UNNUM 


BIT 


«8IT5,SWR 


BNE 


STTEST 


TYPE 


,.♦2 


BIC 


«RIT2,FLA62 


BIT 


UNCMP.UNITSV 


BEQ 


TRYNX 


MOV 


uNNun,aRscs2 


CLR 


RS04DT 


TST 


aRSDT 


BEO 


1$ 


CMP 


«1, aRSDT 


BEO 


IS 


CMP 


#2. aRSDT 


BEO 


6S 


CMP 


#3, aRSDT 


BNE 


TRVNX 


BIS 


#-1 ,85040 T 


BIT 


«8ITU,FLAG2 


BEO 


7$ 


RTS 


PC 


BIT 


«8IT7,aRSDS 


BEO 


TRYNX 


BIT 


*8IT5.SWR 


BNE 


4$ 


BIT 


#81T2,fLAG2 


BEQ 


5$ 


TYPE 


,CRLFLF 


MOV 


UWl«,-(6) 


TYPES 




TYPE 


.40 


BIC 


•8IT2,FLAG2 


BR 


NOWGO 



kUG-78 08:26 PAGE 11 
MANAGEMENT REGISTER ASSIG^flENTS 



SEO 0024 



PUT 8 INTO R1 FOR COUNT 

CLEAR FOUND DRIVE FLG 

SET DEVICE TO ZERO 

CAUSE AN ERROR ♦SETS BIT IN AS REG 

DO A MAXIMUM OF 16 TIMES 

TESTED FOR ALL DRIVES GET OUT 

INCREMENT DRIVE UNIT 

REPEAT FOR NEXT DRIVE 

SAVE 

DROP BAD DRIVES 
SETUP TO CMP WITH UNI TSV 
PUT 0 INTO UNIT NO. 
INHIBIT TYPE OUT? 

;YES 

l.ASCIZ <1 5X1 2>' "TESTING UNIT " 

; CLEAR ERROR FLAG 

;IS THIS DRIVE ON THE SYSTEM 

;N0 

:YES PUT UNIT # INTO CS2 
; CLEAR DRIVE TYPE FLAG 
;IS THIS A RS03? 
;YES 

;IS THIS A RS03 4US? 
rYES 

;IS THIS A RS04? 

;YES 

;RS04? 

;GET A NEW MfCER 
;YES RS04 

;IN POUER FAIL OR CONVERSATION-* 

.-NO 

;YES 

;IS THIS DRIVE READY ? 
;N0 GET ANOTHER DRIVE 
.•TYPEOUT? 
'NO 

;UAS THERE AN ERRER? 
:N0 



PUT im« ON STACK 

TYPE STACK IN OCTAL - SUPRESS 

TYPE SPACE 

CLEAR ERROR FLAG 

NOW TEST 



CERSB-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSBC.P11 U-AUG-78 08:29 
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SEO 0025 



^54 002130 

455 002134 

456 002136 

457 002142 
458 

459 002144 

460 002152 

461 002154 

462 002162 

463 002166 

464 002172 

465 002174 

466 002200 
467 

468 

469 002202 

470 002204 

471 002210 

472 002216 
473 

474 
475 

476 002220 

477 002224 

478 002226 

479 002232 



006537 
105403 
005237 
000705 

032737 
001014 
012737 
005037 
013746 
104406 
104402 
000000 



000402 
000137 
052737 
000207 



104402 
104420 
012637 
000137 



001170 
001164 



TRYNX: 



000002 001126 CHCKDV: 

100000 001170 

001164 

001164 

000730 



ASL 
BCS 
INC 
BR 

BIT 
BNE 
MOV 

CLR 

MOV 

TYPES 

TYPE 

HALT 



015344 
000002 



006566 

001074 
002310 



001126 



BR 

DONEE: JMP 
NOWGO: BIS 
RTS 



UNCMP 
CHCKDV 
UNNUM 
STTEST 

*eiT1.fLAG2 
DONEE 

#100000, UNCMP 

UNNlf1.-(6) 

.NOFND 



NOWGO 

OUT 

#8IT1.FLAG2 

PC 



CHECK NEXT BIT FOR DRIVE 
DID WE TEST ANY REG? 
INC UNIT 0 
CHECK FOR NEXT DRIVE 

FOUND DRIVE? 

YES WE DID TEST A DRIVE 

NO DRIVES TESTED, COULD NOT SET 

ANY AS BITS, THUS DEFAULTS TO 0 

PUT UNNLM ON STACK 

TYPE STACK IN OCTAL - SUPRESS 

COULD NOT SET ANY ATA BITS 

BY SETTING ERROR BITS 

GO BACK AND USE OTHER DIAG. 

TEST DRIVE 0 

GET OUT 

FOIMD DRIVE 



fc.NTER OPERATOR CONVERSATION MODE 
CONM: TYPE ,STA8UF 



TYPE 
RDOCT 
MOV 
JMP 



(6>*.STAMEM 
NOPORT 



.START BUFFER AT 4K 
;6ET OUT 



CERSBCPII 1 

^80 002236 

481 0022A2 

482 002252 

483 00225A 

484 002260 

485 002264 

486 002266 

487 002272 

488 002300 

489 002302 

490 002310 

491 002314 

492 002322 

493 002350 

494 002354 

495 002342 

496 002364 

497 002370 

498 002372 

499 002400 

500 002402 

501 002402 

502 002426 

503 002430 

504 002434 

505 002442 

506 002444 

507 002452 

508 002456 

509 002460 

510 002462 

511 002464 

512 002470 

513 002472 

514 002476 

515 002500 

516 002504 
517 

518 002512 

519 002512 

520 002540 

521 002544 

522 002546 



)5 DATA AND RELlABlLlTy 


TEST 


P1ACY11 


-AUG-78 08:29 








104402 


006566 




IS: 


TYPE 


104402 


002246 






TYPE 


104420 








RDOCT 


012637 


con 00 






MOV 


104402 


006613 




4S: 


TYPE 


104420 








RDOCT 


012637 


001 1 1 4 






MOV 


022757 


000006 


001114 




CMP 


002767 








BLT 


052737 


000100 


001 1 32 




BIS 


004737 


011464 




NOPORT: 


JSR 


013737 


001 1 50 


001 1 34 




MOV 


052737 


002000 


001132 


A1: 


BIS 


004537 


012500 






JSR 


042737 


174040 


001 1 32 




BIC 


104402 


002346 






TYPE 


004737 


005234 






JSR 


001004 








BNE 


052737 


004000 


001132 


1$: 


BIS 


000444 






BR 






DATTES: 




104402 


002406 






TYPE 


104420 








RDOCT 


012637 


001 1 74 






MOV 


0227Z7 


000010 


001 1 74 




CMP 


103757 








BLO 


01 3757 


001 1 74 


001164 




MOV 


004757 


006740 






JSR 


005002 






1$: 


ClR 


000261 








SEC 


006102 






2$: 


ROL 


005757 


001 1 74 






TST 


001405 










005337 


001 1 74 






DEC 


000771 








BR 




UU 1 1 oo 




3t: 


MOV 


052737 


000002 


001126 




BIS 








ASKUC: 




104402 


002516 






TYPE 


004757 


003234 






JSR 


001401 








BEO 


000431 








BR 



N 2 
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SEO 0026 



.STABUF 
..*2 

(6)+.STBC0M 
.BUFSIZ 

(6)*.SIZEBP 

#6.SJZE8P 

4S 

*8IT6,FLA6 

PC.EXTMEM 

SWRDCT.WRDCT 

#8inO,FLAG 

R5.ERRCL 

#174040, FLAG 

,.*2 

PC.CMPY 

DATTES 

#81711. FLAG 

ASKWC 

..♦2 

(6)*.NUM$ 

#10.N111$ 

DATTES 

NLM$,UNNUM 

PC.FNDTYP 

R2 

R2 

Nim 

5$ 

Nim 
2$ 

R2,lfaiTSV 
#8IT1.FLAG2 



.ASCIZ 'B •' 
GET ANS 
AND SAVE IT 

GET ANS 
SAVE IT 

GREATER THEN 24K? 

YES ASK AGAIN 

SET 6 PORT FLAG 

CAL BLtFFERS AND WC 

GET STANDARD UC 

SET BIT FOR DATA TEST ONLY 

CLEAR ERROR CNT ♦ PASS CNT 

CLEAR MULTI FLAG MODE ♦PATTERN SELECT 

.ASCIZ <15><12>'H/LTI DRIVE" 

COMPARE FOR YES 

ANS IS NO 

SET BIT FOR MULTI DRIVE 



;. ASCIZ <1 5X1 2>' "TYPE UNIT » " 

;GET NUMBtR 
;CORRECT # ? 
;N0 

;SET UNIT # 

.-TEST FOR RS04 OR 03 
.•CLEAR WORK AREA 
;SET CARRY 
.-SET BIT IN WORK 

;IS THIS THE RIGHT BIT FOR THE RIGHT DISK 
;VES 

:N0 TRY A6AIN 
;TEST AGAIN 

;SET DRIVE BIT IN IWITSV 
.-SET FOIMD DRIVE FLAG 



..♦2 
PC.CMPY 
WCCON 
OPOAR 



.ASCIZ <15><12>'t)PTI0NAL WD CT" 

COMPARE FOR YES 

YES 

CONT 



.ERS8-( 0AM AND RELI^IlT? TEST 



5?^ 


0O255C 






52 


002550 


'G4402 


002">54 


525 


0C2566 


"'044^0 




5^o 


002S70 


0126V 


001 ^ ^4 


527 


002574 


005757 


0C'174 


528 


002600 


00 "1765 




529 
050 


002602 


015702 


00 '220 


002606 


005202 




55T 


002610 


020257 


00"'«. 


532 


002614 


10175S 




555 


002616 


0''5757 


OC'^ '74 


554 


002624 


0*5757 


00^ '50 


555 








556 


002652 






557 


002652 


104402 


002656 


558 


002662 


004 757 


005254 


559 


002666 


001054 




540 


002670 


052757 


000040 


541 


002676 


104402 


002702 


542 


002716 


104420 




545 


002720 


012637 


001174 


544 


002724 


005757 


001172 


545 


002750 


001404 




546 


002752 


022737 


017777 


547 


002740 


000403 




548 


002742 


022737 


00777? 


549 


002750 


101730 




550 


002752 


015757 


OCr 74 



WCCOM: 



00"«iu 



OPDAR: 



OCi'V 



001174 
001146 



IS; 
2%: 



ROOCT 
«0V 

T";r 
BEQ 
NOV 

INC 

zm> 

BLOS 
WOV 



B 5 
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>E0 0027 



Nim 

WCCON 

SAVWC.R2 

R2 

R2.Nim 

WCCON 

Nim.SyRDCT 
SURDCT.URDCT 



;.ASCJ7 ^'5><12>'W) fT " 

:GEr NLMBER 
;IS IT 0? 

;VES ASK AGAIN FOR LENGTH 
;GET STANDARD WC FOR -A- PORT 

;1S NJ9 LESS THAN SWRDfT 
;yE5 ASK FOR COtTJT AGAIN 
.•OPERATING yORD COl^T 



TYPE 


..♦2 


.ASCIZ <15><12Vt)PTiOMAl DSK ADDR' 


^SR 


PC.CMpy 


COMPARE FOR YES 


BNE 


OPPAT 


ANS IS NO 


BIS 


«8]T5.FLAC 


•SET OPTIONAL 0«A FLAG 


TyPE 


..*? 


•.ASCiZ v15><12>'1>SK AODP " 


RDOCr 






MOV 




-GET NIMP 


TST 


RS040T 


•IS THIS A RSO«? 


BEQ 


1J 

#1 7777, NUn 


■NO 


ZIV> 


•IS ADO. CORRECT? 


BR 


2% 


•GET OUT 


CMP 


07777,Him 


•IS ADO. tORRCCT? 


BLOS 


OPDAR 


;N0 


MOV 


Nim.TDM* 


;TEMP SECTOR REGISTER 



CERS8-C 


RH7O-RS03 DATA 


AND RELIABILITY 


TEST 


MACYI 


CERS8C. 


Pi I 


I4-AUG-78 08:29 






SKMMR 


551 


002760 








OPPAT : 




552 


002 760 


104402 


00276^. 






TYPE 


553 


003006 


104420 








RDOCT 


55A 


003010 


012637 


001174 






MOV 


555 


005014 


022737 


000023 


AA1 1 7y 

001 If'* 




CMP 


556 


00502c 


101756 








BLOS 


557 


AATAO/ 

0050<r4 


005037 


001142 






CLR 


558 


005050 


022737 


000022 


AA1 1 yj 
001 i f*t 




CMP 


559 


005050 


001411 








BEQ 


560 


AATAy A 
005040 


052737 


100000 


AA 117') 
OU I 1 5c 




BIS 


561 


005O4O 


013737 


001174 


AA 11/5 




MOV 


562 


0050j4 


000241 








CLC 


563 


AAZACa. 

0050^0 


006137 


001142 






ROL 


56A 














565 


00500«: 








OPURT: 




566 


0050O*: 


104402 


003066 






TYPE 


567 


0050^0 


004737 


003234 






JSR 


568 


AA11 AO 
0051 


001003 








BNE 


569 


Art71 fV. 


052737 


040000 


OU 1 1 JC 




BIS 


570 














571 


UU5 1 1 c 








OPSO: 




572 


005 1 I c 


104402 


003116 






TYPE 


573 


OOj ICO 


004737 


003234 






JSR 


574 


AA71 75 
0U5 1 JC 


001003 








BNE 


575 




052737 


010000 


AA1 1 75 




BIS 


576 














577 


nrt71 A5 








OPUCK: 




578 


nrt7i AP 


104402 


003146 






TYPE 


579 




004737 


003234 






JSR 


580 


AA71 /LA 

0O5 loo 


001003 








BNE 


581 


UUJ I r\J 


052737 


020000 


1 75 




BIS 


582 














583 


0U5 1 '0 


032737 


004000 


nni 1 75 


AOTST: 


BIT 


584 


U05c0*» 


001402 








BEO 


585 


rw^75fu. 

UUjcUO 


004737 


001620 






JSR 


586 


Art751 5 


042737 


000004 


nni 1 75 

UU 1 1 JC 


EXMFLG; 


BIC 


587 


<V»755n 


032737 


002000 


rmi 1 75 

Uv 1 1 JC 


1$: 


BIT 


588 


nn755A 
OUjccO 


001414 








BEO 


589 


nrt737n 


000137 


003660 






JMP 


590 














591 


003234 


104402 


000763 




CMPV: 


TYPE 


592 


003240 


104422 








RDLIN 


595 


003242 


122737 


000131 


017246 




CMPB 


594 


003250 


000207 








RTS 


595 


003252 


052737 


100000 


001222 


ADTL : 


BIS 


596 
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SEO 0028 



1 



..♦2 

(6)*,NUM$ 

»23.NUM$ 

OPPAT 

PATNU 

#22, NUM$ 

OPWRT 

*8IT15,FLAG 
NUM$,PATNU 

PATNU 



..*2 

PC.CMPY 

OPRO 

*8IT14.FLAG 



..♦2 

PC.CMPY 

OPWCK 

*81T12.FLAG 



..♦2 
PC.CttPV 

ADTST 

*8IT13,FLAG 

*8ITn,FLAG 

EXM^LG 

PC.DRVEW 

#81T2.FLAG 

*8IT10,FLAG 

ADTl 

DATAT 

.YORN 

4f'Y. INPUT 

PC 

*8IT15,FlA63 



.-.ASCIZ <15><12>'t)ATA PATTERN » " 

.-GET Nl/BER 

.•TEST FOR CORRECT NO 

:ASK AGAIN 

.•CLEAR PATTERN * 

;DATA PATTERN UNDER PROGRAM CONTROL 

;SET PROGRAM FLAG 

.•OPERATOR yANTS TO SELECT DATA 



.ASCIZ <15><I2>'WRIT£' 
COMPARE FOR YES 
ASK ABOUT WRITE CHECK 
YES SET FLAG BIT 



.-.ASCIZ <15><12>'T»EAD" 
.COMPARE FOR YES 

;SET FLAG TQ READ 



.-.ASCIZ <15X12>'\*IT£ CK" 
.COMPARE FOR YES 



ARE UF IN fU.ri DRIVE MODE 

BRANCH IF NO. 

GET DRIVES TO BE TESTED 

CLEAR XfER MODE FLAG 

TEST FOR DATA TES' ONLY 

DO COMPLETE TEST 

DO DATA TEST ONLY 



.TEST FOR YES 

.-SET LOOP IN ADDRESS TEST FLAG GOT HERE 
.-BECAUSE PROGRAM WAS STARTED AT 260 



AND RELlABILHr TEST 



CERSBC.Pn U-AuG-78 08:«?9 




S97 










598 










599 










600 










601 










602 










603 










604 










605 


003260 








606 










607 










608 










609 


003260 


104400 






610 


005262 


012757 


000540 


1 7?77t 


611 


003270 


005037 


001024 




612 


003274 


012737 


020000 


01 7326 


613 


003302 


052737 


000400 


001132 


6K 


003310 


013757 


001150 


001154 


615 


003316 


005037 


001140 




616 


003322 


104426 




001 1 54 


617 


003324 


012757 


000200 


618 


003332 


012757 


000200 


001150 


619 


003340 


005757 


001172 




620 


003544 


001006 






621 


003546 


012757 


000100 


001 1 34 


622 


003354 


012757 


000100 


001150 


6?3 


003362 


015757 


017526 


001144 


624 


003570 


104414 






625 


003372 


013700 


01 7326 




626 


003376 


015701 


001154 




627 


003402 


013720 


001140 




628 


003406 


005301 






629 


003410 


001374 






630 


003412 


012737 


000061 


001 1 76 


o31 


003420 


104416 






632 


003422 


105777 


1 75404 




633 


003426 


100375 






634 


003430 


005777 


1 75576 




635 


003434 


100010 






636 


003436 


012737 


003370 


001010 

WW ' W 1 w 


637 


003444 


052757 


001000 


oor32 


638 


003452 


104430 






659 


003454 


104054 






640 


003456 


104400 






641 


005460 


004757 


007204 




642 


003464 


000741 






643 


005466 


104400 







0 5 
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SEO 0029 



RH70 ADDRESS TEST #1 (TRACK AND SECTOR SELECTION TEST) 

URJTE lOO(OCTAL) RS03. 200<OCTAL) RS04, WORDS JN EACH SECTOR 

THE WORD CONTAINS THE ADDRESS OF EACH SECTOR 

UHEN THE COMPLETE DISK IS WRITTEN READ 

BACK EACH SECTOR AND COMPARE FOR THE CORRECT 

DATA IN THE SECTOR 

PS IS AT LEVEL 7 SO NO INTERRUPTS 



ADTI: 
TEST 1 



;ADDRESS TEST 



ADDRESS TEST 



TST1: 
ADT1A: 



SCOPE 

MOV #340, PS 

CLR TEMP2 



1$: 
2$: 

SEABUF: 



XSEABUF 



WRNEX8: 
RRDSEC: 



MOV 
BIS 
MOV 
CLR 
CLRDV 
MOV 
MOV 
TST 
BNE 
MOV 
MOV 
MOV 
ERCLR 
MOV 
MOV 
:MOV 
DEC 
BNE 
MOV 
DKCMD 
TST8 
BPL 
TST 
BPL 
MOV 
BIS 
LOGW 
HLT 
SCOPE 
JSR 
BR 

SCOPE 



#20000, 0UT8UF 
#81 T8, FLAG 
SWRDCT.SAVE 
0«A 

#200,WRDCT 
#200,SWRDCT 
RS04DT 
2S 

#100,WRDCT 
#100,SURDCT 
OUrajF ,BUF 

0UT8UF.R0 
UWDCT.R1 
OMA.fO)* 
R1 

XSEABUF 
#61.CMD 

aRSCSl 
.-4 

aRSCS! 

WRNEXB 

#Sf ABUF ,LAO 

#BIT9,FLAG 

!WC!DA!BA 

PCDISBUF 
SEA8<JF 



LOCK UP PS 

START BUF AT 20000 
SET TEST FLAG 
SAVE STD M) COIWT 
CLEAR DISK ADD 
INIT DRIVE 
SETUP WC 

IS THIS A RS04? 

rts 

SETLy> WORD COUVT 

SET UP CURRENT ADDRESS 
CLEAR RS REGISTERS IF ERROR 
SET \t> ADDRESS BUFFER 

LOAD OUTBUF WITH DATA TO BE WRITTEN 

FILL OUTBUF 

WITH DATA 

WRITE NO I/E 

GO WRITE 

CHECK FOR READY 

TEST FOR ERROR 
BRANCH IF NO ERROR 
SET UP LOOP ADDRESS 
SET ERROR BIT IN FLAG 
LOG WRITE ERROR 



; SET UP NEXT DISK ADDR. 
.•WRITE NEXT SECTOR 



CERSB-C RH70-RS03 DATA AND RELIABILITY TEST 

^^^^ 



CERSBC.PII 


!4-AUG-78 08:29 


6^4 


003470 


104414 




645 


003472 


012737 


000071 


646 


003500 


104416 




647 


003502 


105777 


175324 


648 


003506 


100375 


649 


003510 


005777 


175316 


650 


003514 


100006 




651 


003516 


052737 


001000 


652 


003524 


104432 




653 


003526 


104014 




654 


003530 


104400 




655 


003532 


013702 


017^26 


65t) 


003536 


005737 


001172 


657 


003542 


001403 




658 


003544 


012703 


OOG200 


659 


003550 


000402 




660 


003552 


012703 


000100 


661 


003556 


023712 


001 14C 


662 


003562 


001004 




663 


003564 


005722 




664 


003566 


005303 




665 


003570 


001 372 




666 


003572 


000412 




667 


003574 


013701 


001140 


668 


003600 


011200 




669 


003602 


104000 




670 


003604 


104436 




671 


003606 


004737 


014112 


672 


003612 


001002 




673 


003614 


104402 


000757 


674 








675 








676 








677 


003620 


104400 




678 


003622 


004737 


007204 


679 


003626 


000717 




680 


003630 


013737 


001154 


681 


003636 


042737 


000400 


682 


003644 


032737 


100000 


683 


003652 


001402 




684 


003654 


000137 


003262 


68^ 


003660 






686 








687 








688 








689 


003660 


104400 




690 








691 








692 








693 








694 








695 








696 








697 








696 


003662 


012737 


mm 


699 


003670 


073737 


00T074 



MACvn 30A(1052) 
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SEQ 0030 



001176 



001132 



RDSECT; 



ADHGT : 



$: 
SANHT; 



ADtRR: 



ERCLR 

MOV 

DKC/ID 

TST8 

BPL 

TST 

BPL 

BIS 

LOGR 

HLT 

SCOPE 

MOV 

TST 

BEO 

MOV 

BR 

MOV 

CMP 

BNE 

TST 

DEC 

BNE 

BR 

MOV 

MOV 

HLT 

LOGC 

JSR 

BNE 

TYPE 



#71.CMD 

aRSCS! 
.-4 

aRSCSI 
ADHGT 

#8IT9.FLAG 

!WCfDA 

OUTBUf .R2 

RS04DT 

1$ 

#200. R 3 

SANHT 

#100. R3 

DMA. (2) 

ADERR 

(2>» 

R3 

SANHT 
CHKADT 
DMA.GOOD 
(2).8A0 



PC.PRNT 

CHKADT 

.CRLfLf 



CLEAR ERRORS 

READ NO I/E 

DO A READ 

CHECK FOR READY 

NOT READY BRANCH BACK 

TEST FOR ERROR 

BRANCH IF NO ERROR 

SET ERROR FLAG 

LOG READ ERROR 



RS04? 
NO 
YES 
CONT 

CMP FOR CORRECT ADDR. 
BRANCH IF DATA DID NOT COMPARE 
GET NEXT ADDRESS OF IM9UF 
DEC SECTOR COlMT 
TEST NEXT WORD 

CORRECT ADDRESS 
DATA IN ERROR 

DISK ADD DID NOT MATCH WRITTEN ADDRESS 
LOG COMPARE ERROR 
INHIBIT TYPEOUT? 
YES 



•REPORT ONLY ONE ERROR PEP SECTOR* 



001150 
001132 
001222 



CHKADT: SCOPE 
JS« 
BR 
MOV 
BIC 
BIT 
BEO 
JMP 

DATAT: 



pc.Diseuf 

RRDSEC 

SAVE.SURDCT 

#81 r 8. FLAG 

#8JTl5,fLA65 

.♦6 

ADT1A 



SET UP NEXT DISK BUFFER 
CHECK NEXT SECTOR 
GET STD UD COLMT 
CLEAR TEST FLAG 

DOES OPERATOR WANT TO LOOP ON TEST 

NO 

YES 

DATA TEST 



001024 
001026 



TEST 2 



DATA TEST 



ST2: 
XYZ« 



SCOPE 



XYZ* ************** *************** 



XYZ< 



MOV #- , rEMP2 
MOV STAMEM.TEMP3 



.-TEST 2 INDICATOR 



CfRS8-C RH70-RS03 DATA AM) RELIABILITY TEST 
CERSBC.P11 U-AUG-78 08:?9 TST2 



F 3 

MACYII 30A(1052) ''8-AUG 
DATA TEST 



700 003676 

701 00370^ 

702 003710 

703 003712 
70A 003716 
7U5 003722 

706 003730 

707 003736 

708 0037*4 

709 003752 

710 003756 

71 1 003762 

712 003764 

713 003770 
7U 003776 

715 004000 

716 004006 

717 004010 

718 004014 

719 00402? 

720 004030 

721 004032 

722 004034 

723 004040 

724 004046 

725 004050 

726 004054 

727 004056 

728 004062 

729 004066 

730 004070 

731 004074 

732 004102 

733 004104 



013737 
005037 
104426 
004737 
004737 
012777 
012737 
013737 
052737 
004537 
005037 
104414 
004537 
032737 
001462 
012737 
104416 
004737 
012737 
032737 
001427 
104430 
005237 
022737 
001000 
004737 
001004 
104402 
704402 
104044 
005337 
032737 
001 327 
004737 



001150 
001140 

011376 
007130 
000340 
003762 
017326 
000003 
007650 
001204 

006546 
040000 

000161 

011600 
003762 
001000 



001 204 
000001 

014112 

000620 
000630 

001132 
000003 

011444 



001134 LDAT3: 
LDAT2: 



175140 
001156 
001144 
001132 



001 1 32 
001176 



00101 C 
001 1 32 



001204 



2$: 



LDATl 
LDAT: 



2S: 



1$: 



001 1 32 



flOV 

CLR 

CLRDV 

JSR 

JSR 

MOV 

MOV 

MOV 

BIS 

JSR 

CLR 

ERCLR 

JSR 

BIT 

BEQ 

MOV 

DKCMD 

JSR 

MOV 

BIT 

BEO 

LOGW 

INC 

CMP 

BNE 

JSR 

BNE 

TYPE 

rrPE 

HLT 
DEC 
BIT 
BNE 
JSR 



SWRDCT,WRDCT 
DMA 

PC.APORT 
PCVECTRR 
#340.aSTATUS 
#LOAr.HRDER 
0UT8UF ,BUF 
#3, FLAG 
RS.PASEL 
LOPCNT 

R5,0PDSEL 

#8IT14,FLAG 

SLH 

#161.CM0 

PC. WATT 
*L DAT, LAD 
#8JT9.FLAG 
WRXSL 

LOPCNT 
#1. LOPCNT 
2S 

PCPRNT 
W 

.DATA 
,WRTERR 

!Ds:da 

FLAG 
#3. FLAG 
LDAT 
PC/WTNO 



78 08 .-20 PAGE 18 



SEO 0031 



CLEAR DISK ADDRESS 
CLEAR RS REGISTERS 

SETUP INT VECTOR 

SET DISK STATUS REG LOC (206) 

SETUP FOR KARD ERROR RETURN 

SETUP OUTPUT BUFFER 

SET COUNTER TO 3 

SET UP DATA BUFFERS 

CLEAR ERROR FLAG 

CLEAR RS REG. IF ERROR 

SET UP DISK ADDRESS 

TEST FOR WRITE 

TEST FOR READ 

WRITE WITH I/E 

DO A WRITE 

WAIT FOR INTERRUPT 

SETUP SCOPE LOOP 

WAS THERE AN ERROR? 

CONT 

LOG WRITE ERROR 

SET ERROR FLAG 

IS THIS THE FIRST TIME? 

NO 

TyPE ? 
NO 



WRITE ERROR 

DEC tOWTER 

DONE VET WITH 3RD TRY? 

NOT 3 TRIES YET? TRY AGAIN 

TYPE NOT WRITE 



CERS8-C RH70-RS03 DATA AND RELIABILITY TEST 
K-AUG-78 08:29 



CERSBC.P11 



73A 004110 005737 

735 0041 H 00K02 

736 004116 004737 

737 004122 005037 

738 004126 104400 

739 004130 052737 

740 004136 004737 

741 004142 000705 

742 004144 104400 

743 004146 104414 

744 004150 004537 

745 004154 032737 

746 004162 001002 

747 004164 000137 

748 004170 013737 

749 004176 012737 

750 004204 104416 

751 004206 004737 

752 004212 032737 

753 004220 001505 

754 004222 005737 

755 004226 001001 

756 004230 104434 

757 004232 032737 

758 004240 001007 

759 004242 032737 

760 004250 001003 

761 004252 005737 

762 004256 001056 

763 004260 004737 

764 004264 001052 

765 004266 104402 

766 004272 04402 

767 004276 017702 

768 004302 023702 

769 004306 001406 

770 004310 032737 

771 004316 001002 

772 004320 162702 

773 004324 004737 

774 004350 001030 

775 004332 005737 

776 004336 001402 



001204 

011622 
001204 

000003 001132 
007204 



006546 

020000 001132 



004470 
017326 
000151 

011600 
001000 

001204 



TST2 
URXBL; 

URXI: 



SLH: 
SLH2: 



G 3 

MACY11 30A(1052) 18-AUG 
DATA TEST 



001144 1$: 
001 1 76 



001132 XESH: 

177570 2S: 
17757C 



000100 
001000 
001204 

014112 3$: 

000620 
000642 
174536 
017326 

000400 177570 
000002 

014112 9$: 
001216 



TST 

BEQ 

JSR 

CLR 

SCOPE 

BIS 

JSR 

BR 

SCOPE 

ERCLR 

JSR 

BIT 

BNE 

J»1P 

MOV 

MOV 

DKCMD 

JSR 

BIT 

BEQ 

TST 

BNE 

LOGUC 

BIT 

BNE 

BIT 

BNE 

TST 

BNE 

JSR 

BNE 

TYPE 

TYPE 

MOV 

CMP 

BEO 

BIT 

BNE 

SLB 

JSR 

BNE 

TST 

BEQ 



LOPCNT 
WRXI 

PC.TYPREC 
LOPCNT 

*3,FLAG 

PCDISBUF 

LDAT1 



R5.0P0SEL 

#8]T13,FLAG 

IS 

ESHI 

0UT8UF ,8UF 
*151,CMD 

PC, WATT 
#81 T9, FLAG 
IS 

LOPCNT 
2S 

«8IT6,SWR 
3S 

«8ir9.SUR 
3S 

LOPCNT 
10S 

PC.PRNT 
4S 

.DATA 
.WCKERR 
aRS8A, R2 
0UT8UF ,R2 
9$ 

«ei ra.swR 

9$ 

#2.R2 

PC.PRNT 

4S 

MMAVA 
7$ 
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SEO 0032 



;WAS THERE AN ERROfi"* 
:N0 

;TYPE RECOVERED 
; CLEAR ERROR FLAG 

; CLEAR RETRY COUNT 

rSET BUFFER FOR WRITE CHECK 



CLEAR RS REG IF ERRORS 

IS THE OPERATOR SELECTING THE TRACK 

TEST FOR yRITE CHECK 

YES 

NO 

SET UP CURRENT ADDRESS 
WRITE CHECKWITH I/E 
GO WRITE CHECK 
WAIT FOR INTERRUPT 
IS THERE AN ERROR? 
NO ERROR 
1ST ERROR? 
NO 

YES LOG ERROR 
TYPE ALL ERRORS? 
YES 

LOOP ON ERROR? 
YES 

FIRST ERROR? 
NO 

rrPE OUT? 
NO 



GET CORRECT BA 

DID A WD GET XFERED? 

NO 

XFER MODE? 

YES 

TYPEOUT ERRORS? 
NO 

IS MEM MGHT AVAILABLE? 
NC 



CERS8-C RH70-RS03 0*-TA AND RELJA8ILITY TEST 
CERSeC.PII K-AUG-78 08:29 TST2 



H 3 

MACY11 30A(1052) 18-AUG 
DATA TEST 



717 004540 

778 004544 

779 004350 

780 004350 

781 004364 

782 004364 

783 004370 

784 00437? 

785 004<,04 
004410 

787 004412 
788 

789 004414 

790 004420 

791 004426 

792 004430 

793 004434 

794 004440 

795 004442 
^ 004446 

797 004452 

798 004454 

799 004462 

800 004466 

801 004470 

802 004474 

803 004500 

804 004506 

805 004510 

806 004514 

807 004516 

808 004524 

809 004530 

810 004534 

81 1 004540 

812 004542 

813 004550 

814 004552 

815 004556 

816 004564 

817 004566 

818 004574 

819 004576 

820 004602 



004737 
010237 

104402 

01 7746 
104404 
104402 
017746 
104404 
104026 

005237 
022737 
001247 
004737 
005737 
001402 
004737 
005037 
104400 
012737 
004737 
000422 
004537 
004537 
032737 
001002 
000137 
104400 
042737 
005037 
000137 
000137 
104414 
012737 
104416 
004737 
032737 
001007 
032737 
001003 
004537 
000400 



006762 
001226 

004354 

1 74636 

004576 
1 74426 



001204 
000010 

006720 
001204 

011622 
001204 

004146 
007204 

011312 
006546 
010000 

004724 

000003 
001204 
004540 
004146 



001204 



001010 



001132 



001^32 



0001 71 001 1 76 



7$: 
8S: 

6t: 



4S: 
lOt: 

$: 
5$; 



ESHi 
ESH: 



1$: 



SLH2A: 
DSKRD: 



0''1600 
010000 

000004 

010414 



177570 
00r32 



JSR 
MOV 

TYPE 

MOV 

TYPED 

TYPE 

MOV 

TYPED 

HLT 

INC 

CMP 

BNE 

jSR 

TST 

BEO 

JSR 

CLR 

SCOPE 

MOV 

JSR 

BR 

JSR 

JSR 

BJT 

BNE 

JMP 

SCOPE 

SIC 

CLR 

JMP 

JMP 

ERCLR 

MOV 

DKCMD 

JSR 

BJT 

BNE 

BIT 

BNE 

JSR 

8R 



PCPHYCOV 
R2.W0RK 

aU0RK,-(6) 
..♦2 

aRSWC.-(6) 

.'DAIDBIBA 

LOPCNT 

#10.LOPCNT 

SLH2 

PC.NOREC 
: OPCNT 
5$ 

PC.TYPREC 
LOPCNT 

#slh2aad 
pc.Djseuf 

SLH2A 
R5. CLEAR 
R5.0P0SEI 
«8IT12.FIAG 
1$ 

MSTR 

#3,FLA6 

LOPCNT 

OSICRD 

SLH3 

#1 71, CMD 

PC. WATT 

*10000.SMR 

TAG 

«BIT2,FLAG 
TAG 

R5, COMPARE 

FLH 
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SFO 0033 



;YES GET VITURAL ADDR 
:GET BA 

:.ASCIZ <15><12>"(8A)-" 

:PUT aUORK ON STACK 
iTYPE STACK IN OCTAL 
' ASCIZ " WC=" 
■PUT aRSWC ON STACK 
TYPE STACK IN OCTAL 
NOTF: BA REG. = *2 OF ACTUAL MEMORY 
LOC AFTER WORDS HAVE BEEN XFERED 
;'NC ERROR COUNT 
;'0 TRYS YET? 
: t) 

TYPE UNRECOVER/«LE 
ANY ERRORS? 

:N0 

TYPE RECOVERED 
CLEAR ERROR COIMTER 

SETUP LOOP ADDRESS 
SET UP THE DISK BUFFER 

CLEAR BUFFER 

OPERATOR SELECTED DISK ADDRESS? 

TEST FOR READ 

YES 

NO READ 

CLEAR RE-READ COLMT 

CLEAR FLAG 

CONT 

CLEAR RS REG IF ERRORS 

READ WITH 1/E 

READ 

COMPARE? 
NO 

COMPARE? 
NO 

COMPARE 



CERS8-C RH7O-RS03 DA^A AND RELIABILITY TEST 
CEPSBC.Pn K-AUG-78 08:29 TST2 



I 3 

MACV11 30A(1052) 18-AUG-78 
DATA TEST 



08:26 PAGE 21 



SEO 00^ 



821 


004604 






822 
823 


004604 


032737 


001000 


004612 


001433 




82A 


004614 


032737 


000100 


825 


004622 


001003 




826 


004624 


005737 


001204 


827 


004630 


001011 


828 


004632 


004737 


0K112 


829 


004636 


001004 


830 


004640 


104402 


000620 


831 


004644 


104402 


000657 


832 


004650 


104432 




833 


004652 


104044 




83A 


004654 


104400 




835 


004656 


005237 


001204 


836 


004662 


022737 


000010 


837 


004670 


001 323 




838 


004672 


004737 


006720 


839 


004676 


000137 


004716 


840 


004702 


104400 




841 


004704 


005737 


001204 


842 


004710 


001402 




843 


004712 


004737 


011622 


844 


004716 


004737 


007204 


845 


004722 


000500 




846 


004724 


005737 


001132 


847 


004730 


100467 


848 








849 








850 








851 








852 








853 








85^ 








335 








856 








857 


004732 


013746 


001134 


858 


004736 


000316 




859 


004740 


042716 


177400 


860 


004744 


006216 




861 


004746 


006216 




862 


004750 


006216 




863 


004752 


006216 




864 


004754 


061637 


001026 


865 


004760 


023737 


001022 


866 


004766 


003424 




867 


004770 


061637 


001026 


868 


004774 


023737 


001022 


869 


005002 


003416 




870 


005004 


162637 


001026 


871 


005010 


005037 


017326 


872 


005014 


013746 


001026 


873 


005020 


062737 


020000 


874 


005026 


005316 


875 


005030 


001373 




876 


00503? 


005726 





TAG; 



177570 



001204 



001026 
001026 

017326 6t: 



FLH: 


BIT 


#eiT9,FLAG 


IS THERE AN ERROR"* 




BEO 


ADRD 


;N0 




BIT 


#8IT6.SWR 


•SOFT ERROR TYPEOUT^ 




BNE 


3$ 


■YES 




TST 


LOPCNT 


•FIRST ERROR? 


5$: 


BNE 


2$ 


•NO 


JSR 


PC.PRNT 


•TYPE OUT? 




BNE 


1$ 


•NO 




TYPE 


.DATA 






TYPE 


.RDERR 




1$: 


LOGR 


;LOG READ ERROR 




HLT 


.DSIDA 




2t: 


SCOPE 








INC 


LOPCNT 


•COUNT ERRORS 




CMP 


#10. LOPCNT 


•LAST RETRY? 




BNE 


DSKRD 


•NO 




JSR 


PC.NOREC 


•TYPE UNRECOVERABLE 


4$: 


JMP 


ADPI 


•CONT 


AORD: 


SCOPE 








TST 


LOPCNT 


•ANY ERRORS? 




BEO 


ADR1 


•NO 


ADrtI : 


JSR 


PC.TYPREC 


;TYPe RECOVERED 


JSR 


PC.DiSeUF 


;G0 SET UP DISK BUFFER. 




BR 


READCr 


;CONT. READING 


MSTR: 


TST 


FLAG 






mi 


5S 


^OPEftATOR SELECTED PATTEIM 



nOV WRDCT.-(SP) 

SUAB (SP) 

BIC #1 77400. (SP) 

ASR CSP> 

ASR (SP) 

ASR (SP) 

ASR (SP) 

ADD (SP)JE«P5 

CMP TEMPI , TEMP3 

BLE 5$ 

ADD (SP) -TEMPS 

CMP TEMPI, TEMP3 

BLE 4S 

SLe (SP) ♦.TEMPI 

CLR 0UT8UF 

MOV rEMP3.-(SP) 

ADD #20000. 01JT8UF 

DEC (SP) 

BNE 61 

TS' (SP)* 



CERSB-C RH70-RS05 DATA ANO RELIASILHY TEST 



CERSBC.PIl U-AUG-78 08:29 TST2 

877 005054 000137 005676 

878 005040 4$: 

879 005040 005726 5S: 



880 005042 062737 000002 001142 

881 005050 022737 000044 001142 

882 005056 001402 

883 005060 000137 003660 

884 005064 005037 001142 

885 005070 032757 000002 177570 

886 005076 001006 
587 005100 032737 002000 001132 



888 005106 001404 

889 005110 005137 001120 3$: 

890 005114 000137 006154 2$: 

891 005120 000137 005136 1$: 
892 

893 005124 000137 00447< WFAOCT 



g4 005150 052737 100000 00^222 RANEL: 
895 



WACYH 30A(1052) 
DATA TEST 



J 3 

18-AUG-78 08:26 PAGE 22 



JMP L0AT3 

TST (SP)> 

ADD #2.PATNU 

CMP #44.PATNU 

B£0 .*6 

JMP OATAT 

CLR PATNU 

BIT #81TUSWR 

BNE 2$ 

BJT *8]T10.FLAG 

BEQ 1$ 

COM A081 

JMP EXTPPR 

JMP RANEX 

JMP FSH 

BIS «8in5.FLAG3 



;JNC PATTERN INDEX 



NOT LAST PATTERN EXIT 
LAST PATTERN EXIT 
DATA TEST ONLV? 
YES 

DATA TEST ONLY? 
NO 

ALTERNATE PORTS 
LOOP 

DO NEXT TEST 
CONT. READING 

SET LOOP IN RANDOM TEST GOT 
HERE BY STARTING AT LOC 264 



TEST 3 



CERSB-C RH70-RS03 DATA AND RELIABILJTV TEST 
CERSBC.P11 U-AU&-78 08:29 TST2 

896 005156 
897 
898 
899 
900 
901 
902 

903 005136 WAOO 
90A 
905 
906 
907 
908 
909 
910 
911 

912 005U0 005037 001024 

913 005U4 052737 000400 001132 

914 005152 012737 020000 017326 

915 005160 013737 017326 001122 

916 005166 005737 001216 

917 005172 001402 

918 005174 005037 177572 

919 005200 012737 000042 

920 005206 104426 

921 005210 012737 176030 

922 005216 012737 005774 

923 005224 004737 007130 

924 005230 012777 000340 173632 

925 005236 012737 005356 001010 

926 005244 012737 000001 001226 

927 005252 013701 017326 

928 005256 004537 010010 

929 005262 017737 012040 001140 

930 005270 042737 170000 001140 

931 005276 052737 000003 001132 

932 005304 012737 000200 001134 

933 005312 005737 001172 

934 005316 001003 

935 005320 012737 000100 001134 

936 005326 013737 001134 001226 

937 005334 013701 017326 

938 005340 004S37 010010 

939 005344 013737 017326 001 U4 

940 005352 005037 001204 



mACYll 30A(1052) 
DATA TEST 



K 3 
18- AUG- 78 
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SEQ 0036 



RANEX: .-RANDOM ADDRESS DATA TEST 

.THIS PROGRAM WRITES, WRITECHECKS AND READS 1 SECTOR OF RANDOM DATA FROM RANDOM DISK 
.ADDRESSES. THIS TEST WILL MAKE 1000(10) PASSES BEFORE IT IS COMPIETED 

************************************************************************* 



RANDOM ADDRESS RANDOM DATA TEST 



********** ******************************** 

TST3: SCOPE 

Xy2******* *****?******************************************** *********** 
************************************************************************* 
************************************************************************ 
xy2************7****** ******************************************* ****** 



****************************** ****************************************** 
xy2************?******************************************************* 



2S: 



001142 1$: 

001162 
001156 



WPLGl 



2$: 



CLR TEMP2 

BIS «8IT8.FLAG 

MOV #20000.0UTBUF 

MOV 0UT8UF.VADDR 

TST MMAVA 

BEO 1$ 

CLR a«rSRO 

MOV #42.PATNU 

CLRDV 

MOV #-1000..PASSC 

MOV iTRWRED.HRDER 

JSR PC.VECTRR 

MOV #340.aSTATUS 

MOV #URERR,LAO 

MOV «! ,UORK 

MOV OUTBUF.Rl 

JSR R5, RANDOM 

MOV aOUTSUF.OMA 

BIC #170000,OnA 

BIS f3-FLAG 

MOV #200.WRDCT 

TST RS040r 

BNE 2$ 

MOV /riOO.WRDCT 

MOV URDCT.WORK 

MOV ourauF.Ri 

JSR R5, RANDOM 

MOV 0UT8UF .8Uf 

CLR LOPCNT 



NOMORE A TEST 2 

SET TEST FLAG 

GET STARTING ADDR OF 6UF 

SAVE BUFFER AODR 

MEM MGHT AVAILABLE? 

NO 

TURN IT OFF 

DO RANDOM COMPARE 

INIT DRIVE 

SET IP PASS COINT 

SET UP FOR HARD ERROR 

SETUP INTERRIFT VECTOR 

SETUP LOOP ADDRESS 

SET UP RANDOM GEl^RATOR WORD 

GENERATE RANDOM DATA 
SET UP DISK ADDRESS 

SET COMTER 

RS04 

RS04? 

yes 

SET UP WOPO COLWT =1SECT0P 
GENERATE RANDOM BUFFER 



:SET UP OUTPUT BUFFER 
;CLR ERROR FlAG 



CERS8-C RH70-RS03 DATA 
CERSBC.P11 U-AUG-71 

9^1 005356 lOAAK 

9^2 005360 012737 

%3 005366 10^416 

94^ 005370 00^.737 

9A5 005374 032737 

%6 005A02 0OK35 

9<;7 00540A 032737 

9^.8 005412 001004 

949 005414 005737 

950 005420 001013 

951 005422 104430 

952 005424 005237 

953 005430 004737 

954 005434 001004 

955 005436 104402 

956 005442 104402 

957 005446 104044 

958 005450 104400 

959 005452 005337 

960 005456 032737 
%1 005464 001 334 

962 005466 004737 

963 005472 000137 



AND RELlAeiLJTY TEST 
i 08:29 TST3 

URERR 

000161 001176 
01 1600 

00^000 001132 2%: 
000100 177570 
001204 



001204 5J: 
014112 

000670 
000630 

51: 
6S: 

001132 

000003 00113? 

0114s4 
006076 



NACYH 30A(''052) 18-AUG-78 08:26 PAGE 24 

RANDOM ADDRESS RANDOM DATA TEST SEO 0037 



ERCLR 






MOV 


#161.CMD 


WRITE WITH I/E 


DKCMD 




•WRITE 


JSR 


PC.WATT 


■WAIT FOR INTERRUPT 


BIT 


*8IT9,FLAG 


-WAS THERE AN ERROR? 


BEO 


WRRCK1 


•NO 


BIT 


«e]r6,SUR 


•TYPE RETRY ? 


BNE 


5S 


YES 

•FIRST TIME? 


TST 


LOPCNT 


BNE 


6S 


•NO 


LOGW 




■LOG WRITE ERROR 


INC 


LOPCNT 


;SET ERROR FLAG 


JSR 


PC.PRNT 


;TYPEOUT? 


BNE 


3S 


;VES 


TYPE 


.RANDM 




TYPE 


.WRTERR 




HLT 


IDS .'DA 




SCOPE 






DEC 


FLAG 




BIT 


#3. FLAG 




BNE 


yRERR 


; RETRY 


JSR 


PC.WTNQ 


rTYPE CAN NOT WRITE 


JMP 


EXRAX 


;GEr NEW NUMBER 



CERS8-C RH70-RS03 DATA AND RELJABiLITY TEST 
' TST3 



URRCK1 

WRRCK : 
<>$: 



CERSBC. 


P11 


I4-AU6-78 08:29 


964 


005476 






965 


00550? 






966 


005504 




J 1 1 OCC 


967 


005510 






968 


005512 






%9 


005516 






970 


005520 


^\^ 07X7 


UWl 5 1 


971 


005526 


1 (V A 1 A 

1 kjh'* 1 o 




972 


005530 




m 1 AAA 


973 


005554 


(\X07X7 


nni Ann 


97<» 


005542 


UU 1 HJJ 




975 


005544 




Annmn 


976 


005552 






977 


005554 






978 


005560 


(VII n^o 




979 


00S562 






980 


005564 




U l*» 1 Ic 


981 


005570 


V/v 1 yjjc. 




982 


005572 


^C\LL(\'> 


fwwt7n 


983 


005576 




VAAyOHc 


964 


005602 


\i \ t f Jf 


1 f -jCJC 


985 


005610 




WvWC 


986 


005616 






987 


005632 


ni 77iA 

\J \ f f HO 


1 7'^77n 

1 f J J 1 V 


988 


005636 


1 VHMVH 




989 


005640 


1 VHV/CO 




990 


005642 


nfi^?^7 




991 


005646 


n??7^7 

\lCCi Jf 




992 


005654 


W 1 JC V 




993 


005656 


1 V/H*«Uc 


lAiOOJ 1 


994 


005662 


nn*;n'^7 


VA/ 1 c 


995 


005666 


\AJ\J 1 Jf 


wvOUf D 


996 


005672 


005737 


001204 


997 


005676 


001407 




998 


005700 


104402 


000702 


999 


005704 


013746 


001 204 


1000 


005710 


104406 




1001 


005712 


104402 


000757 


1002 


005716 


104400 




1003 


005720 


052737 


000003 



001176 



177570 



2$: 



001226 



001204 



001132 



5$; 



1$: 



6$: 
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RANDOM ADDRESS RANDOM DATA TEST SEO 0038 



Tsr 


LOPCNT 


ANY ERRORS? 


BEQ 


IS 


NO 


JSR 


PC.TYPREC 


TYPE RECOVERED 


SCOPE 




CLR 


LOPCNT 


CLEAR LOOP COUNT 


ERCLR 


#151. CMO 


CLEAR RS REG JF ERRORS 


MOV 


WRITE CHECK WITH I/E 


DKCMD 




•WRITE CHECK 


JSR 


PC. WATT 


-WAIT FOR INTERRUPT 


BIT 


#81 T9. FLAG 


ERROR? 


BEQ 


1$ 


NO 


BIT 


#eiT6.SUR 


•TYPE ALL RETRYS? 


BNE 


2S 


•YES 


TST 


LOPCNT 


FIRST ERROR? 


BNE 


5$ 


•NO 


LOGWC 




•LOG WRITE CK 


JSR 


PC.PRNT 


•TYOEOUT? 


BNE 


6S 


;N0 


TYPE 


.RANDM 




TYPE 


.WCKERR 




MOV 


aRSa^.WORK ;GET CORRECT BA 


SUB 


#2.U0RK 




TYPE 


ayoRK,-(6) 


•.ASCIZ <15><12>"(8A>=" 


MOV 


;PUT aUORK ON STACK 


TYPED 




;TYPE STACK IN OCTAL 


HLT 


.'D6!DA!BA 


raA=ME«ORY LOC ♦? OF ACTUAL 


INC 


LOPCNT 


;INC RETRY COlWT 


CMP 


#10. LOPCNT 


;LAST ONE YET? 


BNE 


WRRCK 


,N0 


TYPE 


.LWRECO 




CLR 


LOPCNT 


; CLEAR LOPCNT 


JMP 


EXRAX 


rGET NEW NUMBER 


TST 


LOPCNT 


;ANY ERRORS? 


BEQ 


6S 


;N0 


TYPE 


.RECOV 




MOV 


LOPCNT. -(6) ;6CT 


TYPES 




;rvPE IT 


TYPE 


.CRLfLF 




SCOPE 






BIS 


#3.FLAG ;SET COUNTER 



CERSB-C RH70-RS03 DATA AND RELIABILITY TEST 
CERS8C.P11 K-AUG-78 08:29 TST3 



1 004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

10H 

1015 

1016 

1017 

lOItt 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

104A 

1045 

1046 



005726 
005730 
005734 
005740 
005742 
005750 
005752 
005756 
005764 
005766 
005772 
005774 
005774 
006002 
006004 
006006 
006014 
006016 
006024 
006026 
006032 
006034 
006040 
0060^2 
006046 
006052 
006054 
006056 
006062 
006070 
006072 
006076 
006102 
006104 
006110 
006112 
006116 
006120 
006124 
006130 
006136 
006144 
006146 



104400 
005037 
004537 
104414 
012737 
104416 
004737 
032737 
001003 
004537 
000400 

032737 
001435 
104432 
032737 
001016 
032737 
001012 
005737 
001010 
004737 
001004 
104402 
104402 
104006 
104400 
005237 
022737 
001323 
004737 
005737 
001402 
004737 
104400 
005237 
001402 
000137 
005037 
042737 
032737 
001402 
000137 



001204 
011312 

000171 

011600 
010000 

010414 



001000 

000100 

001000 

001204 

014112 

000670 
000657 

001204 
000010 

006720 
001204 

011622 

001162 

005236 
001142 
000400 
100000 

005136 



RREAO 



001176 
177570 



TAG1: 
001132 RURED 



177570 1$; 
177570 



001204 



001132 
001222 



2$: 
3S: 



EXRAX 



EXRXX 



1$: 



N 3 

MACY11 30A(1052) 18-AUG-78 08:26 
RANDOn ADDRESS RANDOM DATA TEST 



PAGE 26 



S£Q 0039 



SCOPE 

CLR 

JSR 

ERCLR 

MOV 

DKCMD 

JSR 

BJT 

BNE 

JSR 

BR 

BJT 

BEO 

L06R 

BIT 

BNE 

BIT 

BNE 

TST 

BNE 

JSR 

BNE 

TYPE 

TYPE 

HLT 

SCOPE 

INC 

CMP 

BNE 

JSR 

TST 

BEO 

JSR 

SCOPE 

INC 

BEO 

JMP 

CLR 

BIC 

BJT 

BEO 

JMP 



LOPCNT 
R5. CLEAR 

#171.CMD 

PC. WATT 

#8JT12.SWR 

TAG1 

R5. COMPARE 
RURED 

#8JT9,FLAG 
EXRAX 

#BJT6,SWR 
2$ 

«ejr9,swR 
2$ 

LOPCNT 
3$ 

PC.PRNT 
2$ 

,RANDM 
,RDERR 
iDBIDA 

LOPCNT 

#10. LOPCNT 

RREAD 

PC.NOREC 

LOPCNT 

EXRXX 

PC.TYPREC 

PASSC 
1$ 

WRLG1 

PATNU 

«BIT8.FLAG 

*8JT15.FLAG3 

.♦6 

RANEX 



CLEAR COUNTER 

CLEAR BUFFER 

CLEAR RS REG JF ERRORS 

READ WITH I/E 

READ 

COMPARE ? 

NO 

YES 

CONT 

JS THERE AN ERROR? 
NO 

LOG READ ERR 
TYPE ALL ERRORS? 
YES 

LOOP ON ERROR? 
YES 

FIRST ERROR? 
NO 

TYPEOUT? 
NO 



UPDATE COUNTER 
LAST TRY YET? 
RETRY 

TYPE IffiECOVERABLE 

ANY ERRORS? 

NO 

TYPE RECOVERED 

♦ 1 PASS COWT 
JS TEST DONE? 
NO 

END OF TEST 
CLEAR TEST FLAG 
LOOP ON THIS TEST? 
NO 

YES 
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CFRSBCP*" U-AoG-78 08:29 rST3 RANOOH ADDRESS RANDOM DATA TEST SEO 0040 



iO<.7 








< 


CHECK 


FOR MULTI DISK MODE 




■•0<.3 








< 


IF IN MULTJ 


DISK MODE REPORT 


tND" 


1CK9 








1 


IF LAST DISK 


ON SYSTEM HAS BEEN EXERCISED. 


10S0 
1051 
























i 










'0S2 








1 


TEST 4 




TEST FOR MULT] 


DISK MODE 


^055 








■ 










105A 


006152 


10<.400 




TST4: 


SCOPE 






1055 


006154 


005037 


OOV40 


EXTPPR: 


CLR 


DMA 




1056 


006160 


005037 


X)1024 






CLR 


TEMP2 




1057 


006164 


104426 








CLRDV 




.-INIT DRIVE 


1058 


006166 


032737 


004000 


001152 




BIT 


#BIT11.FLAG 


.-ARE UE IN MULTI DISK MODE 


1059 


006174 


001404 








6EQ 


EXTPP 


;N0 REPORT 'tND" 


1060 


006176 


004737 


002150 






JSR 


PC . TRYNX 


;YES TEST FOR ALL DRIVES 


'061 


006202 


000157 


003212 






JMP 


EXMFLG 


.RESTART TESTING OF DRIVES 


1062 


006206 


004737 


002204 


EXTPP: 


JSR 


PC. DONEE 


.GET PASS COUNT 


1063 
















106A 










THIS ROUTINE 


CLEARS THE DRIVE 




1065 








.REGISTERS IF THERE WAS AN ERROR 


1066 














«BIT9.fLAG 




1067 


006212 


032737 


001000 


001 1 32 . 


fcRCLR: 


BIT 


:ANY ERRORS? 


1068 


006220 


001404 








BEO 


IS 


;N0 


1069 


006222 


104426 








CLRDV 




.-CLEAR ALL ERRORS 


1070 


006224 


042737 


001000 


001152 




BIC 


#8IT9.FLA6 


.CLEAR ERROR FLAG 


1071 


006232 


000002 




1$: 


RTl 




;EXIT 


1072 


















1073 








.ENTER DISK HANDLER BV THE TRAP INSTRUCT JON 


107A 








:AR(kfCNT TO 


TRAP INSTRUCTION IS TUO CR06R 


1075 








;8YTE OF THE 


CONTROL REGISTER. 




1076 


















1077 


006254 


013777 


001140 


172600 


.OKCND: 


nov 


Om.aRSOA 


:LQAD DISK ADD 


1078 


















1079 


















1080 


















1081 


















1082 


















1083 


















1084 


















1085 


















1086 


006242 


005737 


001024 






TST 


rENP2 




1087 


006246 


001422 








BEO 


5$ 




1088 


006250 


013746 


001026 






NOV 


TEMP3,-(6) 




1089 


006254 


005077 


172602 






CLR 


aRSBAE 




1090 


006260 


005037 


001050 






CLR 


TENP4 




1091 


006264 


062737 


020000 


001050 6$: 


ADD 


#20000. TEMP4 




1092 


006272 


013737 


001030 


001 144 




«0V 


TEMP4.8UF 




1093 


006300 


103002 








BCC 


7$ 




1094 


006302 


005277 


1 72554 






INC 


aRSBAE 

(6) 




1095 


006306 


005316 




7$: 


DEC 




1096 


006310 


001365 








BNE 


6$ 




\\ff7 


006312 


0U5('26 








TST 






1098 


006314 


005037 


001202 


54: 


CLR 


INTFLG 


.•CLEAR INTERRUPT FLAG 


^099 


006320 


013777 


001144 


172512 4$: 


MOV 


BUF.aRSBA 


.-LOAD (CMA) BUSS ADDRESS 


1100 


006526 


CI 3702 


001134 






MOV 


URDCT.R2 

r: 

R2.aRSwC 


.GET NEGATIVE 


1101 


006332 


005402 








NEG 


.•WORD COUNT 


1102 


006354 


010277 


172476 






MOV 


.-LOAD WC 



DATA AND RELIABILITY TEST 
CERSBC.PH H-AU6-78 08:29 TSTA 

9S^y*^ OOOAOO 001132 

1104 006346 001021 

1105 006350 005737 001216 

1106 006354 001416 

1107 006356 032737 000040 001126 

1108 006364 001403 

1109 006366 052737 001000 001176 
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TEST FOR MULTI DISK MODE SEO 004^ 

BIT f8IT8,fLAG .RANDOM TEST? 

fiNE 1$ .YES APORT ONLY WITH NO MEM MGMT 

III "^P^^^ MGMT AVAILIA8LE? 

6E0 1S ;N0 

BIT «IT5.FLAG2 .SET A17 IN RSCS1 

BEQ 3S :N0 

BIS «8JT9.CMD ;YES 



CERS8-C RH70-RS03 DATA AND RELIABILITY TEST 
CERS8C.P11 U-AUG-78 08:?9 TST4 



D A 

MACvn 30A(1052) 18-AUG-78 
TEST FOR MULTJ DISK MODE 



08:26 PAGE 29 



SEO 004? 



no 
m 

112 
113 
114 
115 

117 
118 
119 

^^Q 

121 
122 
123 
124 
125 
126 
127 
128 
!29 
130 
131 
132 
133 
134 
155 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
54 



006374 
006402 
006404 
0064'. 2 
006420 



006422 
006430 
006434 
006436 
006440 
006444 
006450 
006454 
006456 
006464 
006466 



006470 
006476 
006502 
006504 
006512 
006520 
006522 
006524 
006532 
006534 
006540 
006544 



006546 
006554 
006556 
006564 



032737 000020 
001403 

052737 000400 
113777 001176 
000002 



042737 
0O';777 
100401 
000425 
017702 
042702 
022702 
001413 
032777 
001007 
104140 



012777 
013716 
000002 
052737 
032737 
001401 
000000 
032737 
001402 
012716 
010637 
000002 



032737 
001403 
013737 
000205 



001000 
172376 



172366 
037777 
140000 



}77777 
001156 

001000 
004000 



001126 

001 1 76 
172412 



100000 172360 



001132 
177570 



002000 001126 

012264 
001202 



000040 
001146 



00113? 
001140 



3$: 
IS: 



BIT 

BEO 

BIS 

NOVB 

RTI 



#8IT4.FLAG2 
IS 

#8IT8.CMD 
CMD.aRSCSl 



:RH70 DISK INTERRUPT HANDLER 
.•ROUTINE CONTINUES ON ERRORS 



001132 DKINT; 



2S: 



BIC 

TST 

BMI 

BR 

MOV 

BIC 

CMP 

BEO 

BIT 

6NE 

HLT 



#BIT9,FLAG 

aRSCSl 

2S 

INTEXT 

iRSCSI.R? 

MZ7777.R2 

#140000,R2 

TRUERR 

#1 00000. aRSDS 

TR«JERR 

.'AS!DS 



172352 IS: 



nov 
nov 

RTI 
BIS 
BJT 
BEO 
HALT 
BIT 
BEO 

nov 
nov 

RTI 

.•ROUTINE TO SET 
.ENTER FROn JSfi 



TRUERR: 
INTEXT: 



2t 
IS 



OPDSEL ; 



1$: 



BIT 
BEO 
MOV 
RTS 



#-1 ,aRSAS 
HRDER.(SP} 

«BJT9.FLAG 
«eiT11,SUR 
.♦4 

*eniO.FLA62 
IS 

#NPRRET,(SP) 
SP.JNTFL6 

UP TRACK « FROn 
R5. OPDSEL 

#81T5.FLA6 
IS 

TOnA.DMA 
R5 



SET A16? 

NO 

VES 

LOAD FUNCTION REG. 
RETURN FROM TRAP 



.•CLEAR ERROR BIT 
;TEST FOR ERROR 

Jlff> IF NO ERRORS 

GET CONTENTS OF CS1 

CLEAR ALL BUT SC AND TRE 

IS SC AND TRE BOTH SET? 

YES THERE IS SOME KIND OF XFER ERROR 

IS THE ATA BIT SET? 

YES 

WRONG IMIT INTERRUPTED 

JF YOU HAVE JUST POWERED A DRIVE OR 

ARE RlfMING THE POUER FAIL TEST, 

INTERRUPTS UJLL OCCU) FROn DRIVES OTHER 

inm THE UNIT {M>ER TEST. If THIS TYPEOUT 

SHOWS NO ERRORS IN THE REGISTERS OF T»€ DRIVE 

UNDER TEST, THAT DRIVE IS OK 

CLEAR ALL ATA BITS 

GET RETURN ADD. 

RETRY 

SET ERROR BIT 

HALT ON COMPLETION FLAG 

YES BIT 11 SET IN SWR HALT 
Ui;iT IN 6ACKGR0lM> TEST** 
NO 

MODIFY RETURN ADD. 
SET INT FL6 
.EXIT 

6ption 



OPTIONAL 
NO 

GET OPT. 

fxr 



DfW? 
DMA 



CERS8-C RH70-RS05 DA^A AND RELIABILITY 
CERS8C.P11 U-AUG-78 08:29 



1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
116^ 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 



TEST 
TST4 
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TEST FOR MULTI DISK MODE 



08:26 PAGE 30 



SEO 004 5 





\AJjv I J 


\JJC 1 cj 


nsi 101 










0^2040 




006602 


0201 1 3 


040502 


045516 




006610 


02K40 


000 








m 5 


04401? 


0535"'7 


BUF S 1 7 : 




046440 


047101 


020131 




006626 


045464 


041040 


047101 




006654 


051513 


020077 


047450 








046101 


020051 






000 








006651 


015 


052412 


051116 


UNRECO: 


006656 


041505 


053117 


051105 




006664 


041101 


042514 


005015 




0O()672 


000012 








006674 


005015 


C47125 


041101 


NOURIT: 


006702 


042514 


052040 


020117 




006710 


051127 


052111 


006505 




006716 


000012 









.ASCIZ <1 5X1 2>"S TART ING BANK »' 



.ASCIZ <15><12>'><0W MANY 4K BANKS? (OCTAL) 



.ASCIZ <15><12>"UNREC0VERABLE"<15><12><12> 



.ASCIZ <15><12>'\JNABLE TO URITE"<15><t2> 



006720 
006724 
006726 
006732 
006736 

006740 
006746 
006752 
006760 



004737 
001002 
104402 
005037 
000207 

052737 
004737 
042737 
000207 



0i4r2 

006651 
001204 



040000 
001762 
040000 



001126 
001126 



.EVEN 
NOREC: 

1$: 

FNDTYP: 



JSR PC.PRNT 

BNE IS 

TYPE .JW^ECO 

CLR LOPCNT 

RTS PC 

BIS #8IT14,FLAG2 

JSP PCUNTYP 

BIC fBITH.FLAG^r 

RTS PC 



.TYPEOUT? 
;N0 

; CLEAR LOOP COWTER 



;SET CHECK DRIVE TYPE FLAG 
.CHECK DRIVE TYPE FLAG 
.•CLEAR DRIVE TYPE FLAG 



CERSB-C RH70-RS03 DATA AND RELIASILITV TEST 
CERSeC.PII K-AUG-78 08:29 TSTA 



F i, 

MACYll 30A(1052) 18-AU6-78 
TEST FOR MULT] DISK MODE 
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SEQ 004^ 



11 89 








1190 








(191 


006762 


rtAA1/\ "1 

000302 






00676»» 


AA/ 777 

004/ 


011566 


1193 


0067^0 


AAXAA5 

006002 




i i Qj 

11 v*» 


rv\^775 


Ay 57A5 


1 7777A 


11 V!) 


006' '6 


A75777 


r\f^l AA 


1196 


OOi'^OtK* 


AA1 / A5 




119/^ 


UU/UOc 


AC57A5 


AAAA1 A 


11915 


/v^TA1 5 


A75777 


AAI AAA 
W ( UUU 


1 1 W 


AA'>A5A 


aAi / A5 




1200 


AA7A55 


AC57A5 


AAAA5A 

AAI A7' 
WUf "« 


1 "VM 

lifOl 


AA'7A5iL 


A1 7777 

U 1 3' 3' 


i<a>2 








li?U5 








1<?0»» 
















l<ruD 








\dVf 








IcUo 








lAW 


AA7A7/. 


nn^777 


AAI n5z. 


'clO 


nmr\/.n 


AA1 / A7 




1 51 1 

Icli 


\AJf\/*tC 


A1 7777 
Ul Jf 


Afll 

UU 1 UcO 


1 51 5 


AA7A^A 
\AJf\Jj\J 


1 A77n5 

iOj f\JC 


AAI P7A 
UU 1 c Jw 


1 51 7 

1^1 3 


AA7/SCA 


AA.57A5 


AAAAA1 


1 51 / 








1 51 C 

1<: 1 5 


AA7nA5 


AfUil ri5 
UUD lUc 




1 51 A 


AA7rWL/. 


AAAI A5 




1517 


UUf udo 


<w.in5 




15m 


AA7A7A 


A/V^1 n5 

UUD 1 yJc 




1 51 Q 

1^:19 


AA7A75 

\JUf\Jf C 


AA<.1 A5 
UUD i\JC 




1 55n 


(V\7C\7L 
\JMr\jf ** 


ni 7777 

U 1 f f Jf 


1 71 7LC\ 


1 551 


KrJf i\Jc 


1 A5777 
lOc f Jf 


KAAJWC 


1 555 


An71 1 A 


IjHCf Jf 


IXTkAAA 


1 557 
ICC J 


An71 1 A 


U jUc J' 


W 1 c Jv 


1 55y 


AA71 55 
\A>/ ICC 


A1 77A5 
U 1 Jf Uc 


\AJ 1 CjU 


1 55^ 


AA71 Of- 


nnn5n7 

UUUcUf 




1 55iL 








1227 


AA71 7n 


A1 5777 




1 55B 


AA71 7A 
UU^ 1 JO 


ni 7777 


AAI A73 
VA/ 1 Uf c 


1 55G 


AA71 / / 


\jWc\Jr 




1<:31; 








1 5T1 








1 575 








1 577 

'<:35 








1 57^ 








1 57^ 

ICJJ 




U Ic f Jf 


1 77777 

i f / r f f 


0071 


012737 


1 77777 


1237 


007162 


000240 




1238 


007164 


005337 


001230 


1239 


007170 


001374 




1240 


007172 


005337 


001226 


12A1 


007176 


001366 




12^2 


007200 


000137 


0051 76 


12A3 








1244 









.■ROUTINE TO CALCULATE \ TURAL ADDR 

.•CALCULATE FROM PHYSICAL ADDR 



PHYCOV: 



172026 



172012 1$: 



001230 2$: 



SWAB R2 

JSR PC.RRR2 

ROR R2 

BIC *177770,R2 

BIT *8IT8,aRSCSl 

BEQ 1$ 

BIS *8IT3,R2 

BIT #6IT9,aRSCSl 

BEO 2$ 

BIS *BIT4.R2 

MOV STAMEM.UORKl 



.GET REG * 
;IS A16 SET? 
;N0 
• VES 

)lS A17 SET? 

;N0 

;yES 

;6ET SANK 0 FOR -A- PORT 



001230 



3$: 



001230 
001230 
001230 



171730 
1 77776 



TST 


TEMP2 


BEQ 


3$ 


MOV 


TEMP3,W0RKl 


SUB 


U0RKl,R2 


ADD 


*1,R2 


SUAB 


R2 


ROL 


R2 


Ra 


R2 


ROL 


R2 


ROL 


P2 


ROL 


R2 


nov 


aRSBA.UORKl 


SUB 


#2,U0RK1 


BIC 


#160000.UORK1 


BIS 


R2,W0RKl 


nov 


W0RK1,R2 


RTS 


PC 


: MOV 


«DK1 NT, iRSVEC 


MOV 


PRIORJTV,PS 


RTS 


PC 



;GET STARTING BANK M 
;6ET OFFSET FOR REG » 
;6FT BAMt. 0 INTO 
.•VfPER BITS 



.GET OFFSET FOR ADDR IF ANY 
.CORRECT IT 
.CLEAR JUNK 
.GET MEG NO 



.SETUP INTERRUPT VECTORS 
.-PRIORITY 4 



.-THIS ROUTINE IS USED FOR DELAYING THE START OF THIS PROGRAM 

;IF POWER FAILED DURING TESTING. THIS WILL GIVE THE DRIVES TIME JO GET »P 

•TO SPEED. THE DELAY WILL BE ABOUT 5-5 MINUTES DEPENDING UPON THE PROCESSOR 



001226 
001230 



TIMUP: 
IS: 
2$: 



MOV 

MOV 
NOP 
DEC 
BNE 
DEC 
BNE 
JMP 



#177777. WORK 
#177777.W0Rm 



U0RK1 
2$ 

WORK 
1$ 

ADTST 

.ROUTINE TO SETUP :>ISK BUFFERS 
.ADD WORD COUNT TO STARTING DISK ADDRESSES 



CEHSe-C RH70-«S03 DATA AND RELlAeiLl^Y TEST 
CERSBC.Pll 14-AUG-78 08:29 TST4 



G A 

WACY11 30A(1052) 18-AUG-78 
TEST FOR MULTI DISK MODE 



08: 



PAGE 32 



SEO 0045 



1245 










.COMPARE CALCULATED ADDRESS 


1246 














0B\T5 FlAG 


1247 


007204 


052737 


000040 


001 1 52 


D 1 ^BUF • 


BIT 


1248 


007212 


001402 








BEO 


1$ 


1249 


007214 


000157 


007560 






JMP 


BUFEXI T 


1250 


007220 


004757 


007550 
001160 




IS: 


JSR 


PC,8LSZ 


1251 


007224 


013737 


001250 




MOV 


BLOCK^WORKl 


1252 


007232 


005237 


001140 




INCSEC: 


INC 


DMA 


1255 


007236 


022737 


010000 


001140 




CMP 


#10000, DMA 


1254 


007244 


001445 








BEO 


BUFEXIT 


1255 


007246 


005357 


001160 






DEC 


BLOCK 


1256 


007252 


001401 








BEO 


COMDAR 


125/ 


007254 


000766 








BR 


INCSEC 


1258 


007256 


052757 


001000 


001 1 3? 


COMDAR: 


BIT 


#8JT9,FLAG 


1259 


007264 


001401 








BEQ 


1$ 


1260 


007266 


000207 








RTS 


PC 


1261 


007270 


025777 


001140 


1 71 544 


S: 


CMP 


OMA.aRSDA 


1262 


007276 


001425 








BE 9 


CNDAE 


1263 


007500 


104452 








L06R 




1264 
















1265 
















1266 


007502 


015701 


001140 






MOV 


DMA. GOOD 


1267 


007306 


017700 


171550 






MOV 


aRSDA,8AD 


1268 


007512 


104000 








HLT 


1269 


007514 


004757 


014112 






JSR 


PCPRNT 


1270 


007520 


001014 








6NE 


CMDAE 


1271 


007522 


011657 


001226 






MOV 


(SP),yORK 


1272 


007526 


104402 


007552 






TVPE 


..♦2 


1273 


007344 


015746 


001226 






MOV 




1274 


007550 


104406 








TrPFS 


1275 


007352 


105757 


001152 




TMDAE: 


TST8 


FLAG 


1276 


007356 


100032 








BPL 


BUf INX 



DID OPERATOR SELECT PATTERNS 

NO 

YES 

DEFINE BLOCK SIZE 

♦ 1 SECTOR COUr^T 
DONE YET? 
-ES 

-1 FROM BLOCK COUNT 
CMP DMA TO RSDA 
RECYCLE 
ANY ERRORS? 

NO ERRORS DO COMPARE ON RSDA 
ERRORS DO NOT COMPARE RSDA 
COMPARE RSDA WITH DMA 
SHOULD BE EQUAL 

AfTER TRANSFER RSDA AND DMA SHOULD BE 

If NOT, RSDA IS NOT CORRECT. DMA CONTAINS 

WHAT RSDA SHOULD = 

GET DMA FOR CORRECT ANS IN GOOD 

GET RSDA INTO BAD 

RSDA^BAD DMA=GOOD SEE COWENTS 7 LINES ABOVE 

TYPEOUT? 

NO 

GET TEST PC FROM yhCRE IT CAME 

.ASCIZ " TST PC='* 

PUT UORK ON STACK 

TYPE STACK IN OCTAL - Sl*>RESS 

LAST DISK BUFFERS 

NO 



CERS8-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSBC.Pll U-AUG-78 08:?9 TST4 



\277 
1278 
1279 
1280 
1281 
1282 
1283 
128A 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
129<. 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
151' 



007360 
00756A 
007370 
007376 
007404 
007406 
007414 
007416 
007424 
007426 
007432 
007434 
007442 
007444 
007450 
007454 
007460 
007464 
007466 
007470 
007474 
007476 
007500 
007504 
007506 
007510 
007512 
007514 
007516 
007520 
007522 
007526 
007532 
007534 
007540 
007546 



005037 

062716 
042737 
032737 
001404 
013737 
000454 
032737 
001770 
005737 
001765 
013737 
000441 
005037 
013702 
005237 
022702 
001405 
005202 
005337 
001367 
000734 
013746 
000241 
006116 
006116 
006116 
006116 
006116 
006116 
012637 
005737 
001402 
006137 
052737 
000207 



001140 
000002 
000200 
00C400 

001 1 50 

000100 

001120 

001116 

001232 
001140 
001232 
007777 

001250 
001232 



001134 
001172 

001134 
000200 



001132 
00M32 



BUFEXIT 
AKH: 



001134 2S: 
001132 1$: 



00' 1 34 



BUFINX: 
XINCSEC 



XINCSUR 



00' ' 32 



1$: 

EXTDR: 



MACYI 
TEST I 

:CLR 

ADD 

BIC 

BIT 

BEO 

MOV 

BR 

BIT 

BEO 

TST 

BEO 

MOV 

BR 

CLR 

MOV 
:INC 

CMP 

BEO 

INC 

DEC 

8NE 

BR 
:M0V 

CLC 

ROL 

ROL 

ROL 

ROL 

Ra 

ROL 
MOV 
TST 
BEO 
ROL 
BIS 
RTS 



H 4 

30A(1052) 18-AUG-78 08:26 PAGE 33 
OR MULTl DISK MODE 



SEO 004^ 



DMA 
*2.(6) 
#200/ LAG 
*8IT8.FLA6 
1$ 

SURDCT.WRDCT 
EXTDR 

#81 T6. FLAG 

2S 

A081 

2S 

UDCT8.WRDCT 

EXTDR 

W0RK2 

DMA.R2 

U0RK2 

07777.R2 

XINCSUR 

R2 

U0RK1 

XINCSEC 

AKH 

U0RK2.-(SP) 

(SP) 
(SP) 
(SP) 
(SP) 
(SP) 
(SP) 

(SP)*.yRDfT 
RS04DT 

n 

#200,FLA6 

PC 



CLEAR ADDRESS BITS LAST DISK BUFFER 

INC STOCK POINTER 

CLEAR LAST DISK BUFFER FLAG 

RANDOM TEST OR ADDR TEST? 

NO 

EXIT 

MULTJ PORT? 
NO 

A OR 8 PORT' 
A PORT 
8 PORT 
GET OUT 

CLEAR W0RK2 FOR BLOCK COWTER 

PUT WORKING DISK ADD INTO WORK 

INCREMENT BLOCK COIAT 

CMP FOR LAST SECTOR 

♦1 SURFACE LAST SECTOR BRANCH 

INC DMA 

■DEC BLOCK COUNT 
FILLED STANDARD BUFFER YET? 
;UILL TAKE STANDARD SIZE WORD LOkftT 
; SETTING UP BLOCK COWT 
;FOR NON STANDARD. BUFFER SIZE 



;RS04? 

;N0 

;VES 

;SET lASl 
;EXIT 



DISK BUFFER FLAG 



Cfc9S8-C RH70-fiS05 DATA AND RELIABILITY 
CERSeC.PII K-AUG-78 08:29 



I A 

TEST MACY11 30A(7052) 18-AUG-:8 
TST4 TEST FOR MULTJ DISK MODE 



08:26 PAGE 34 



SEO 004 7 



1315 

13K 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1 525 

1526 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1534 

1335 

1336 

1337 

1338 

1339 

1540 

1541 

1342 

1345 

1544 

1345 

1346 

1347 

1548 

1549 

1350 

1351 

1352 

1355 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

7366 

1367 

1368 



007550 
007556 
007562 
007564 
007572 
007576 
007602 
007604 
007610 
007614 
007620 
007622 
007624 
007626 
007632 
007636 
007640 
007642 
007646 



007650 
007656 
007664 
007670 
007672 
007674 
007676 
007702 
007710 
007714 
007720 
007722 
007750 
007752 
007740 
007742 



007746 
007752 
007756 
007760 
007764 
007766 



012757 
005757 
001003 
012737 
013702 
033702 
001406 
043702 
005257 
065702 
000241 
006002 
006002 
004757 
005757 
001401 
006002 
010257 
000207 



012737 
012737 
013700 
010C03 
000241 
006005 
010337 
013737 
013701 
022700 
001453 
032737 
001404 
016037 
000205 
016000 



010344 
000340 
001142 



177570 
00113^ 
001122 
000042 

000004 

000300 

000300 



004737 017372 

005737 001024 
001402 

004537 017330 
010021 

005337 001226 



.-THIS ROUTINE CONVERTS A WORD COUNT TO A BLOCK COUNT 



000177 


001160 


BLSZ: 


nov 


»l 77, BLOCK 


SETUP FOR RS04 


001 1 72 






TST 


RS04DT 


RS04? 








BNE 


2$ 


YES 


000077 


00' 160 


1$: 


nov 


#77.8L0CK 


PUT SECTOR SIZE INTO BLOCK 


001134 




2S: 


nov 


URDCT,R2 


FETCH WORD COUNT 


001160 






BIT 


BLOCK, R2 


ARE THEV EQUAL? 








BEO 


RORBLK 


•YES 


001160 






BIC 


BLOCK. R2 


■SET UP BLOCK OVERFLOW 


0C1160 






INC 


BLOCK 




001160 






ADD 


BLOCK. R2 








R0R8LK: 


CLC 












ROR 


R2 










ROR 


R2 




011566 






JSR 


PC-RRR2 




001172 






TST 


RS04DT 


•RS04? 








BEQ 


1$ 


.-NO 








ROR 


R2 


;YES 


001160 




IS: 


nov 


R2 .BLOCK 


;8L0CK COlWT 








RTS 


PC 


.EXIT 



.•ROUTINE TC SELECT DATA PATTERNS FOR TEST 
.•ENTER FROM jSR R5.PASEL 



000004 
000006 



001226 

001132 
017326 



IS: 



2S: 
til* 



nov 


«nEn.»r4 


•SETUP TRAP 


nov 


#540.a<r6 


: VECTOR 


NOV 


patnu.ro 


: SET UP PATTERN NLfOER 


nov 


R0.R3 


;G£T PATTERN « 


CLC 




FWKE IT = 


ROR 


R3 


•TO PATTERN # IN LISTING 


nov 


R3.a«DISPl AY 


; DISPLAY PATTERN # 


nov 


hitocr.uoRK 


;SET UP WORK 


nov 


VADDR.R1 


;LOC. OF OUTBUFFER 


CIV 


#42.R0 


; TEST FOR fUHUm DATA NlfOER 


BEO 


RANDOM 


;G0 GENERATE RANDOM DATA 


BIT 


#8IT2.FLAG 


:nAX TST? 


BEO 


2S 


;N0 


nov 


PATOiO).OUT6UF . 


•GET PATTERN 


RTS 


R5 




nov 


PArO(0),RO 





XYZ« 



XVZ« 



FlLOAT: 
FIL8UF : 



JSR 
TST 
BfO 

^SR 

nov 

DEC 



PCFffSFT 
TEnP2 

FIL8UF 

R5.nnusE 

RC,(1)* 
WORK 



REG 



.•PRESET nEnORY HANAGEnENT 

;IS IT A TEST 2 
.BRANCH IF NOT TEST 2 
;D0 NEXT INSTRUCTION WITH nn 
.•FILL BUFFER 
.DEC. WORK COUNT 



CERS8-C RH70-RS03 DATA AND RELIABJLJTY TEST 
CERS8C.P11 U-AUG-78 08:29 TST4 

1369 00777? 001373 

1370 007774 012737 000006 000004 PASEX; 

1371 010002 005037 000006 

1372 010006 000205 



J A 

MACY11 30A(1052) 18-AUC-78 08:26 PAGE 35 
TEST FOR MULTI DISK MODE 



SEO 0048 



MOV 
CLR 
RTS 



FILPAT 

a«6 

R5 



LOAD NEXT WORD 

RESTORE 

TRAP 

SUFFER FULL 



CERSB-C 


RH7O-ftS05 DATA AND RELIABILITY 


TEST MACYll 


K 4 

30A{1052) 18-AUG- 


■78 08:26 PAGE 36 


CERSBC.Pn 


I4-AUG-78 08:29 




TST4 TEST FOR MULfl DISK MODE 


SEO 0C.9 


i373 










.•RANDOM DATA GENERATOR SUBROUTINE 


1374 


















1575 


010010 


013737 


010204 


010210 


RANDOM: MOV 


LONLM,LOSAV 




1576 


010016 


013737 


010206 


010212 




MOV 


HINUn.HlSAV 




1377 


















1378 


















1 5fV 


















1380 


















1 381 


















138^ 


















1 383 


















1 70/ 

136*» 


















1385 


010024 


A/\y 


01 737? 






JSR 


PCMMPSET 


PRESET MEMORY MANAGEMENT REG 


1 386 


010030 


n 1 T^AA 

C 13700 


010204 




RANDl : MOV 


L0N(J1.R0 


SET UP RO WITH 5 DIGITS LOW 


1 387 


010054 


A^ T^Ay 

013704 


010206 






MOV 


HINCf1.R4 


SET UP Rl WITH 5 DIGITS HIGH 


1 700 

I3oo 




012703 


AAAAA7 

00000 






MOV 


*7.R3 


SET UP SHIFT COUNT 


1 7on 




AAC AAT 

005002 








CLR 


R2 


CLEAR R2 


1 590 


010046 


AA^ TAA 

006300 






SHIFT: ASL 


RO 


SHIFT RO LEFT AND 


-1 7Q1 


A1 AAC A 

OIOOdO 


AAjL 1 A/ 

006104 








ROL 


R^ 


ROTATE CARRY INTO LS8 OF Rl INTO 


1 7cn 


A1 /\AC 'I 

010052 


006102 








ROL 


R2 


ROTATE CARRY OUT OF Rl INTO R2 


l3V3 


A1 AAC/ 

010034 


AAC7A7 
003505 








DEC 


R3 


DECREMENT R3 


i 707 


A1 AAC^ 

OlOObo 


AA1 777 

0015O 








BNE 


SHIFT 


CONTINUE SHIFT LOOP 


1 70C 


A1 AA^A 
UIOOOO 


AZ.77AA 
065 ''OO 


A1 A'iA/ 

01 0<:04 






ADD 


LONLW.RO 


ADDN IN NLfBER TO MAKE X 129 


1 7a£. 
1 yyo 


A1 AA^/ 

010064 


AACCA/ 

003!>04 








, ADC 


R4 


PR0P06ATE CARRY 




A1 AAZ.^ 

010066 


A^7'7A/ 


A1 AOA^ 

OlOifOo 






ADD 


HINUM.R4 


ADDN IN NIM9ER TO MAKE X 129 


13Vo 


A1 AA^O 


AACCA'5 

003 50<: 








ADC 


R2 


PROPOGATE CARRY 


1 70Q 


A1 AA7y 

0100/^4 


AZ.O'yAA 

062 '00 


AA1 AC "7 

00103*'^ 






ADD 


#1057,R0 


ADDN LOW CONSTANT 


IhUU 


A1 A1 AA 
010100 


00jj04 








ADC 


Q/ 

R4 , 


QOADA/*ATC ^ Abo ICC 

PHOPOGATt CARRIcS 


U01 


010102 


005502 








ADC 


R2 


PROPOGATE AGAIN 


U02 


010104 


062704 


047401 






ADD 


#47401.R4 


-ADDN HIGH CONSTANT 


A7 
1405 


A1 A1 1 A 

olono 


AACCAI 

005 30<: 








ADC 


R2 


-PROPOGATE CARRY 


1 


A1 A1 1 1 

OlOllc 


A^ 07A'^ 


000006 






ADD 


«A D3 


AOPN HJoHtdT CQNdlANF 




A1 A1 1 JL 

0101 16 


062 y 00 


00000^ 






ADD 


#2.R0 


-REPRIME RO WITH HIGH DIGIT 


U06 


010122 


005504 








ADC 


R4 


PROPOGATE CARRY 


K07 


010124 


/\4 AA9"V 

010057 


/\4 A^y\^ 

010204 






MOV 




-PUT RO BACK IN LONlft 


1 / /\o 

ls08 
1/no 


















1/ in 
IHIO 




































ly 1 o 


















1/17 


















1h1 5 
1 / iy 












'XY2***** *********** 


1y 1 C 


















1 y '1 z. 
14 ID 


A1 A1 7A 

010150 


AAC "77*7 


AA1 AO/ 

001024 






TST 


TEMP2 


■IS IT A TEST 2 


141 f 


A1 A1 7y 

010154 


/\A1 / A'^ 

001402 








BEO 


1$ 


•BRANCH IF NOT TEST 2 


1 / 1 o 

141o 


A1 A1 7^ 

010156 


AA/ C77 

00455/^ 


A1 777A 
01 f 550 






JSR 


R5.MMUSE 


-DC NEXT INSTRUCTION WITH MM 


1419 


010142 


010021 






1$; MOV 


R0,(1)* 


-HOLD LONUM FOR PROGRAM 


1420 


010144 


005337 


001226 






DEC 


WORK 




1421 


010150 


001413 








BEO 


EXuEN 




1422 


010152 


010437 


010206 






MOV 


R4.HJNUM ;PUT Rl BACK IN HINUM 


U23 














1424 


















1425 


















1426 




































1428 















CERSB-C RH7O-RS03 DATA AND RELlABlLlTy TEST 
CERSBC.P11 K-AuG-78 08 29 TST4 



iA39 
K30 
US'" 
H52 
K33 
K34 
K55 
K56 
U37 
K58 
U39 

U41 
K43 



010156 005737 00102A 

010162 00U02 

01016A 004537 01733C 

010170 010421 

0101^2 005337 001226 

010176 0013U 

010200 000137 007774 

010204 000000 

010206 000000 

010210 000000 

010212 000000 

010214 013737 001220 001150 

0102^2 013737 001 '•50 001134 

010250 00020^ 



;Xr2 



2$: 



EXGEN: 
LONLT: 
HINIM: 
LOSAV: 
HISAV: 

RESTOR: 



NACY11 30A(1052) 18-AUG-78 08:26 PAGE 37 
TEST FOR liULTI DISK MODE 



SEO 0050 



TST TEMP2 ;IS IT A TEST 2 

BEQ 2$ .-BRANCH IF NOT TEST 2 

JSR RS.rWUSE ;D0 NEXT INSTRUCTION WITH MM 

MOV R4,(1)^ .-HOLD HiNlfl FOR PROGRAM 

DEC WORK 

BNE RAND1 

JMP PASEX ; RE TURN TO PROGRAM 

0 
0 
0 
0 

SAVWCSWRDCT .-RESTORE ORIGINAL 

MOV SUROCT,WRDCT .-WORD COUNT 

RTS R5 



CERS8-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSBC.Pn 14>AUG-78 08:29 TSTA 



M 4 

MACVT" 30A(1052) 18-AUG-78 
TEST FOR MULTI DISK MODE 



08:26 PAGE 38 



SEO 00^)1 



1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 



010232 
010236 
010242 
010246 
010250 
010252 
010254 
010256 
010260 
010262 
010266 
010270 
010274 
010276 
010302 
010304 
010306 
010312 
010314 
010320 
010324 
010326 
010332 
010336 
010340 
010342 



010344 
010344 
010364 
010372 
010376 
010404 
010406 
010410 



013700 
013704 
012703 
005002 
006300 
006104 
006102 
005303 
001373 
063700 
005504 
063704 
005502 
062700 
005504 
005502 
062704 
005502 
062702 
062700 
005504 
010037 
010437 
000205 
000000 
000000 



104402 
012737 
005037 
032737 
001401 
000000 
000137 



010340 
010342 
000007 



0^0340 
010342 
001057 

047401 

000006 
000002 

010340 
010342 



010350 
000006 
000006 
100000 



001234 



.•RANDOM DATA GENERATOR SUBROUTINE 
;WHEN SWITCH = 0 WE COME HERE 



RAND: MOV 
MOV 
MOV 

CLR 

SHIfTI: ASL 
ROL 
ROL 
DEC 
BNE 
ADD 
ADC 
ADD 
ADC 
ADD 
ADC 
ADC 
ADD 
ADC 
ADD 
ADD 
ADC 
MOV 
MOV 

EWENI: RTS 
LONlfll: 0 
HlNl/11: 0 



LONlf11.R0 

HINUW1.R4 

*7.R3 

R2 

RO 

R4 

R2 

R3 

SHIFTI 
LONIMI 
R4 

HINini 
R2 

#1057.RO 

R4 

R2 

#47401 .R4 
R2 

#6.R2 
*2,R0 
R4 

RO.LOrOll 
R4,HINUM1 
R5 



RO 
R4 



SET UP RO WITH 5 DIGITS LOW 
SET UP R1 WITH 5 DIGITS HIGH 
SET UP SHIFT COUNT 
CLEAR R2 

<;HIFT RO LEFT AND 

ROTATE CARRr INTO LS8 OF R1 INTO 

ROTATE CARRY OUT OF R1 INTO R2 

DECREMENT R3 

CONTINUE SHIFT LOOP 

ADDN IN NlfBER TO MAKE X 129 

PROPOGATE CAHRY 

ADDN IN NLM36R TO MAKE X 129 

PROPOGATE CARRY 

ADDN LOW CONSTANT 

PROPOGATE CARRIES 

PROROGATE AGAIN 

ADDN HIGH CONSTANT 

PROPOGATE CARRY 

ADDN HIGHEST CONSTANT 

REPRIME RO WITH HIGH DIGIT 

PROPOGATE CARRY 

PUT RO BACK IN LONin 

PUT Rl BACK IN HINUM 

RETURN ^0 PROGRAM 



.-TRAP OUT ROUTINE WHEN CREATING DATA BUFFER 



MEM: 
000004 4S: 
177570 

2S: 



TYPE 

MOV 

CLR 

BIT 

BEO 

HALT 

JMP 



#6,a4'4 

«8IT15.SWR 
2% 

aitBEGIN 



.ASCIZ <15><12>'t>lON-X-MEH" 

RESTORE 

TRAP 

HALT' 

NO 



CERS8-C RH^0-RS03 DATA AND RELIABILITY TEST 
CERSBC.P11 U-AUG-78 08:29 TSTA 



N 4 

MACY11 30A(1052> 18-AUG-78 
TEST FOR MULT J DISK MODE 



08:26 PAGE 39 



SEO 0052 



'i486 

1487 

1488 

1489 

1490 

149'' 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 



010414 012737 177770 001152 



THIS ROUTINE COMPARES THE DATA READ AGAINST THE DATA EXPECTED. 

ALL ERRORS ARE REPORTED TO THE OPERATOR, IF BIT 4 OF THE SWITCH 

REGISTER IS SET. THIS ROUTINE WILL CONTINUE COMPARING AFTER AN ERROR HAS BEEN 

FOUND AND WILL REPORT UP TO 8 VERIFY ERRORS WITHIN THE SAME INPUT OPERATION. 

COMPAfi: MOV #-10.ERCOUNT ; ERROR RETRY COUNTER 

XYZ************?********** ************************************ ********* 
************************************************************************* 
************************************************************************ 
XYZ** **********?******** *********************************************** 

A************************************************************************ 



XYZ************?******************************************************* 
****************************** ******************************************* 







A1 7775 






1 CD 


or MMDCC T 


DDCCPT MCMnOV MAAUflCMFhIT DCC 








UU 1 1 CO 




ore 
Ola 


mil i^«rLAuc , 


nnTMC rnMDAOP 






nni 1 7A 






nuv 




■ ccT TUK unort rniKiT 




fll X7X7 


/Vil 1 ?5 


UU 1 1 JH 




nuv 




CCT 1 K> niTntlTPFP POrMTPO 
oc 1 Ur uuiourrcn ruiniicri 




nn^n77 

\AJj\Jjf 


KAJ 1 c\AJ 








SWITCH 


CLEAR RANDOM PATTERN FLAG 




f\^'^7X7 


U i\JC 1 u 


U 1 UjhU 




Mnu 
nuv 


L0SAV.L0NUH1 


GET RANDOM BASE NOS. 


U IUhOc 


ni 7777 


m A51 5 
U 1 \Jc 1 c 


U lUjHC 




Mnu 
nuv 


HlSAV,HINtJM1 




U IV/Hf u 


yAJjfjr 


\J\J I IMC 






1 o 1 


PATNU 


TEST FOR PATTERN 0 


U IV/Hf *» 


nomi 7 








one 


1$ 


•NO 


KJ lUHf O 


fv\^n'K7 

\AJJ\Jjf 


UU 1 ccO 






ri o 


WORK 


•CLEAR COUNTER 




\JOCf Jf 


UUUUU 1 


UU IccO 




Ann 


#1 .WORK 


•INC COIWTER 


010510 


001005 








BNE 


3$ 


; INTERRUPT VET? 


010512 


104402 


000510 






TYPE 


.NOINT 




010516 


104054 








HLT 


!DA!WC.'DS 




010520 


000137 


001234 






JMP 


a«B6GIN 




010524 


005737 


001202 




3$: 


TST 


INTFL6 


;T£ST FOR INT 


010530 


001764 








BEQ 


2S 


;UAIT FOR INT BEFORE COMPARING 


010532 


000426 








BR 


CMPLPl 


:CONT 


010534 


022737 


000042 


001142 


1$: 


CMP 


#42,PATNU 


;IS THIS RANDOM PATTERN? 


010542 


001022 








BNE 


CMPLPl 


rBRANCH IF YES 


010544 


005737 


001202 




CMPLP: 


TST 


INTfLG 


;INTERRlf»T YET? 


010550 


001775 








BEQ 


CMPLP 


•NO UAIT 


010552 


005737 


001200 






TST 


SUJ TCH 




010556 


001007 








BNE 


2$ 




010560 


004537 


010232 






JSR 


RS.RAND 




010564 


013701 


010340 






MOV 


LONIWI .GOOD .GET EVEN RANDOM WORD 


010570 


010637 


001200 






MOV 


SP. SWITCH .SET RANDOM PATTERN FLAG 


010574 


000411 








BR 


WRDCMP 




010576 


005037 


001200 




2$: 


CLR 


SWITCH 




010602 


013701 


010342 






MOV 


HIMfll.GOOD 




010606 


000404 








BR 


WRDCMP 




010610 


013700 


001142 




CMPLP1 : 


MOV 


PATNU, RO 




010614 


016001 


000300 






MOV 


PAT0(R0).GOOD 





010620 005737 001024 



XYZ******** 
*********** 

*********** 

XYZ******** 
*********** 



****7************** 
******************* 
******************* 
****7*** *********** 
******************* 



•****************************** ********** 
******************************************* 
************************************** **•* 
********************************** •**•**• 
******************************************* 



XYZ**** ********?********************** ******** **************** ********* 
•***************.♦****♦**•»***•»**»***«•***•**********»•**•**••••*•••••*' 

WRDCMP: TST TFMP2 



CE«SB-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSBC.Pn U-AU6-78 08;29 TST4 



1$: 

URDINC 



B 5 

MAC Y 11 30A(1052) 18-AUG-78 
TEST FOR MULTI DISK MODE 



08:26 PAGE 40 



SEO 0053 



15A2 


010624 


001406 






15A3 


010626 


042737 


160000 


001154 


15A4 


010634 


052737 


060000 


001154 


15A5 


010642 


160177 


170306 




15A6 


010646 


001037 






15A7 


010650 


005337 


001232 




1548 


010654 


001430 






15A9 


010656 


062737 


000002 


001154 


1550 










1551 










1552 










1555 










15S4 










1555 










1556 










155/ 










1558 


010664 


005737 


001024 




1559 


010670 


001415 






1560 


010672 


032737 


100000 


001154 


1561 


010700 


001411 






1562 


010702 


042737 


100000 


001154 


1565 


010710 


052757 


060000 


001154 


1564 


010716 


062757 


000200 


172546 
001142 


1565 


010724 


022757 


000042 


1566 


010752 


001704 






1567 


010734 


000751 






1568 


010736 


042737 


000010 


001126 


1569 


010744 


000205 







XYZ** 
***** 

***** 

XYZ** 
***** 

***** 



BEQ 

SIC 
BIS 
SUB 
BNE 
DEC 
BEQ 

ADD 
********* 
********* 
********* 
********* 
********* 
********* 



IS 

#160000, SAVE 

#60000. SAVE 

G00D,aSAVE 

UDERR 

W0RK2 

ADAM 

#2. SAVE 
*7** ********** 
************** 
************** 
*7*** ********* 
************** 
************** 



CLEAR PAR REG 
SET PAR 3 
COMPARE DATA 
WORD IN ERROR 
DECREMENT THE WORD COUNT 
EXIT ROUTINE Ih ZERO 
UPDATE PATTERN ADDRESS 
******************************************* 
********************************************* 
************************************ ******** 
******************************************* 
********************************************* 
*f ****************************************** 



yy;************?******************************************************* 
****************** ********************************************** ********* 



IS: 
ADAM: 



TST 


TEMP2 




BEQ 


IS 




BIT 


#100000, SAVE 


IS 4K DONE 


BEO 


IS 


BRANCH If 4K NOT DONE 


BIC 


#100000. SAVE 


■CLEAR PAR BITS 


BIS 


#60000. SAVE 


SET PAR 3 


ADD 


#200.KIPAR3 


•UPDATE PAR 3 TO NEXT 4K 


CMP 


#42.PATNU 


■IS THIS RAf4>0H PATTERN 


BEQ 


CMPLP 


■BRANCH IF YES 


BR 


WROCMP 


COMPARE NEXT WORD 


BIC 


#81T3.FLA62 


;DaNE WITH COMPARE 


RTS 


R5 


;FXIT THIS ROUTINE 



lE«»S8-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSBC.P11 U-AUG-78 08:29 TST4 

UOERR 





01074.*% 

\J l\Jf HO 


005 ■'^7 


001 ?0? 




1S71 


0107S? 


noi 7?? 






'J'C 


U 1 V ' J** 


0V7^7 

UJC' J' 


000100 


177570 




\J\\Ji Dc 












0057^7 


001 






010770 


00140^ 








01077? 


005777 


170034 




1S77 


\J 1 \Jf f o 


100757 






1S7R 




060177 


170150 




1 S7<3 




01 7700 


170144 






01 1010 


1044% 






1 JO 1 


01 101 P 


OV7^7 


001000 

ww 1 v^/w 


177570 

I r r ^ r W 




01 1 OPO 


001 401 






ISA'? 


Oil OP? 


005 7?6 








01 1 0?4 


0047^7 


0141 1? 






01 10V) 


00101 1 

W 1 w * « 








01 10V 


10440? 


01 1036 

W 1 1 W JW 






0110S4 


104000 

f W^ vww 








011056 


0047^7 


01411? 






01106? 


0010?? 

vW 1 wc c 






1S90 


01 1064 


10440? 


011070 

W 1 1 w ■ w 




1591 


011100 


005737 

WW^ • ^ ' 


001216 

WW 1 fc. I W 




159? 


011104 

Will 


001406 

WW 1 ~ww 






1S9l 


011106 

V i 1 ■ vw 


01 3746 

W ' ^w 


1 7777b 




1594 


01111? 


01 3746 


001154 




1595 


011116 


10441? 

1 W ^ • 1 L 






1596 


0111?0 

will Cw 


000403 

W>^W^W J 






1597 


0111?? 

w 1 ' 1 CC 


013746 


001154 




1596 


Oil 126 


104406 






1599 


Olll'iO 

Will 


005037 

WW vw^ • 


001 160 

WW 1 1 WW 




1600 


011154 


01 3702 


001134 




1601 


011140 


005202 

WW-Zl. wt 






1602 


011142 


163702 


001232 




1603 


011146 


005737 


001172 




1604 


011152 


001403 






1605 


011154 


162702 


000200 




1606 


011160 


000402 






1607 


011162 


162702 


000100 




1608 


ori66 


100403 






1609 


oniTo 


005237 


00116C) 




1610 


011174 


000764 







lOf: 

11$: 
3$: 



12$; 
13$: 

2$: 



7$: 
9$: 



C 5 

30A(1052) 18-AUG-78 08:26 
DR MULT] DISK MODE 



PAGE 41 



SEO 0054 



INTFLG 
yRDCMP 
#8IT6.SWR 
10$ 

LOPCNT 
10$ 
aRSCSI 
ADAM 

600D.8SAVE 
aSAVE,8AD 

/r8IT9.SWR 

11$ 

(6)* 

PC.PRNT 

3$ 

..*2 

PC.PRNT 

13i 

..♦2 

MMAVA 

12$ 

PS. -(6) 
SAVE,-(6) 

13S 

SAVE.-(6) 

BLOCK 

yRDCT.R2 

R2 

U0RK2,R2 

RS04DT 

7$ 

#200,R2 
9S 

»100,R2 
8$ 

BLOCK 
2S 



DID INTERRUPT OCCUR YET? 
BRANCH IF NO 
TRY ALL? 
YES 

FIRST READ ERROR? 
YES 

ANY ERRORS? 

YES DO NOT COMPARE 

GET GOOD DATA 
LOG COMPARE ERROR 
LOOP ON ERROR? 
NO 

YES UPDATE SP 

TYPEOUT? 

NO 

.ASCI2 <1 5x1 2>' 'COMPARE ERR" 

DATA COMPARE ERROR 

HAD TO DO IT THIS WAY SO 

PROGRAM COULD LOOP ON ERROR 

.ASCI2 AODR=" 

IS MEM MGKT ON? 

NO 

GET PS 

GET VIRTUAL AODR 
CONVERT TO PHY AND TYPE 
CQNT 

GET ADDA 
TYPE IT 

CLEAR THE BLOCK COlWTER 

GET THE WORD COlMT 

CORRECT FOR DA CALCULATIONS 

DETERMINE DISTANCE Of FAILURE INTO BUFFER 

RSO<? 

NO 

RS03 

CONT 



.•UPDATE BLOCK COLMT FOR EACH 400 WORDS 



CERSB-C RH70-RS03 DATA AND RELIABILITY 
CERSBC.P11 U-AUG-78 08:29 



1611 


01 1 1 76 


005737 


001172 


1612 


011202 


001403 




1613 


011204 


062702 


000200 


16U 


011210 


000402 




1615 


011212 


062702 


000100 


1616 


011216 


01 3737 


001140 


1617 


011224 


063737 


001160 


1618 


011232 


004737 


014112 


1619 


011236 


001014 




1620 


011240 


104402 


011244 


1621 


011252 


013746 


C01230 


1622 


011256 


104406 




1623 


011260 


104402 


011264 


1624 


011270 


032737 


000020 


1625 


011276 


001405 




1626 


011300 


005237 


001152 


1627 


011304 


001402 




1628 


011306 


000137 


010650 


1629 


011312 


032737 


000004 


1630 


011320 


001404 




1631 


011322 


032737 


010000 


1632 


011330 


001421 




1633 








1634 








1635 








1636 








1637 








1638 








1639 








1640 








1641 


011332 


013701 


001122 


1642 


011336 


013700 


001134 


1643 


011342 


004737 


017372 


1644 


011346 


005737 


001024 


1645 


011352 


001402 




1646 


011354 


004537 


017330 


1647 


011360 


005021 




1648 


011362 


005300 




1649 


011364 


001373 




1650 


011366 


042737 


000010 


1651 


011374 


000205 




1652 








1653 


011376 


013737 


001076 


1654 


011404 


013737 


001076 


1655 


011412 


005737 


001216 


1656 


011416 


001411 




1657 


011420 


013702 


001104 


1658 


011424 


004737 


011650 


1659 


011430 


010237 


001122 


1660 


011434 


013737 


001124 


1661 


011442 


000207 





001126 



TEST 
TST4 

8S- 



4S. 

001230 6$: 
001230 5$; 



177570 1$. 

001132 CLEAR: 
001132 



xvz< 



4t: 
1$: 



2S: 



017326 APORT: 
001122 



017326 



MWSET: 



EXU: 



0 5 

MAC V 11 30A(1052) 18-AUG-78 
TEST FOR MULTI DISK MODE 



08:26 PAGE 42 



SfO 0055 



TST 

BEQ 

ADD 

BR 

ADD 

MOV 

ADD 

JSR 

BNE 

TYPE 

MOV 

TYPES 

TYPE 

BIT 

BEO 

INC 

BEQ 

JMP 

BIT 

BEO 

BIT 

BEO 



RS04DT 
4S 

#200. R2 
6$ 

#100.R2 
DKA.WORKI 
BLOCK, WORK 1 
PC.PRNT 
IS 

..♦2 

W0RK1.-(6) 
..♦2 

«BIT4,SWR 

CLEAR 

ERCOIWT 

CLEAR 

URDINC 

#BIT2.FLAG 

3S 

«IT12,FLAG 
2S 



RS04? 
NO 
RS04 
CONT 

RESTORE POSITIVE NLf«ER 
GET HEAD AND SECTOR ADDRESS 

TYPE OUT 7 
NO 

.ASCIZ " DA=" 

PUT UORKI ON STACK 

TYPE STACK IN OCTAL - SUPRESS 

. ASCIZ <15><12> 

RETRY? 

NO 

UPDATE ERROR COMTER 



XFER TEST? 
NO 

READ? 
NO 



m/ VAODR.RI 

MOV W«>CT,RO 

JSR PC.WMPSET 

TST TEMP? 

BEQ IS 

JSR RS.MWSE 

CLR (R1)* 

DEC RO 

BNE 4S 

BiC 4eir3.FLAG2 

RTS R5 

MOV SAvAST.OUTBUf 

MOV SAVAST.VADDR 

TST f«AVA 

BEO EXTT 

MOV SAVMGA.R2 

JSR PC.STMM2 

MOV R2,VADDR 

MOV PHADCR.OUie'if 

RTS PC 



GET STARTING ADD OF BUFFER 
NOW 

PRESET m 

IS IT TEST 2 

BRANCH If NOT TEST 2 

DO MEXT INSTRUCTION WITH m 

CLEAR BUFFER 

COINT LOCATIONS 

UAIT TILL DONE 

DONE WITH COMPARE 

NOW GET our 

SET STARTING ADDR FOR OUTBUF 
SAVE OUTBUF ADDR 
MEM MGMT? 
NO 

SET UP MEM MGMT 
St TUP MEM MGMT 



CERSB-C HH70-RS03 DATA AND RELlABlLJTV TEST 
CERS8C.P11 U-AuG-78 08:29 TST4 



E 5 

NACYll 30A(1052) 18-AUG-78 
TEST FOR MULTI DISK MODE 



08:26 PAGE A3 



SEO 0056 



1662 
1663 
1664 

1665 
1666 
1667 
1668 
1669 
16/^0 
1671 
1672 
167^ 
167A 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 



011444 

011450 
01 14S? 
011450 
011462 



011464 
011470 
011472 
011474 
011476 
011502 
011504 
011506 
011512 
011516 
011520 
011522 
011524 
011530 
011534 
011536 
011542 
011544 
011546 
011552 
011556 
011562 



004737 
001002 
104402 
005037 
000207 



01 3702 
005702 
001001 
005202 
005737 
001006 
000241 
004737 
010237 
000404 
000302 
006002 
010237 
013702 
005202 
163702 
000241 
006002 
004737 
042702 
010237 
000400 



011564 000207 



011566 
011570 
01 1 572 
011574 
011576 

011600 
011606 
011610 
011614 
011616 
011620 

011622 
011626 
011630 
011634 
011640 
011642 
011646 



006002 
006002 
006002 
006002 
000207 

032737 
001003 
004737 
000401 
000001 
000207 

004737 
001007 
104402 
013746 
104406 
104402 
000207 



014112 

00o674 
001204 



001074 



001216 



01 1 566 
001076 



001104 
001112 

001074 



011566 
000077 
001150 



000200 
012154 

014112 

000702 
001204 

000757 



.-TYPE CAN NOT WRITE BLOCK 
WTNO: 



IS: 



JSR 
BNE 
ryPE 
CLR 
RTS 



PC.PRNT 
1$ 
.NOURIT 
LOPCNT 
PC 



;TyPEOUT'> 
;N0 

.•CLEAR ERR COUNTER 



.•ROUTINE TO SET UP STARTING ADDRESS FOR ALL PORTS 
.AND TO CREATE WORD COUNT nAX= 20K 



EXTMEM: 

'$: 
2$: 
8S: 



MOV 
TST 
BNE 
INC 
TST 
BNE 
CLC 
JSR 
MOV 
BR 
SUA8 
ROR 
MOV 
MOV 
INC 
SUB 
CLC 
ROR 
JSR 
BIC 
MOV 
BR 



STAMEM,R2 

R2 

3S 

R2 

MMAVA 
1$ 

PC.RRR2 

R2.SAVAST 

2$ 

R2 
R2 

R2.SAVMGA 
SJZEAP.R2 
R2 

STAMEM. R2 

R2 

PC-RRR2 

R2.Stf)0CT 
7$ 



7$: 
RRR2: 



177570 WATT; 



;4$:M0V*60000,SWRDCT;nAKE 20K 



1$: 
2$: 



IS: 



RTS 

ROR 
ROR 
ROR 
ROR 
RTS 

BIT 

BNE 

JSR 

BR 

WAIT 

RTS 

JSR 

BNE 

TYPE 

MOV 

TYPES 

TYPE 

RTS 



PC 

« 

R2 
R2 
R2 
R2 
PC 

«eiT7.SwR 
1S 

PCXUAIT 
2S 

PC 

PC.PRNT 
IS 

.RECOV 
LOPCNT, -(6) 

.CLFLF 
PC 



.GET BANK # 
.•DID HE TYPE 0? 
;N0 

;YES MAKE 1 

.BRWCH IF MEM MGMT AVAILABLE 



.-SAVE A STARTIND ADDR 
;GET WC 



;SAVE ADDR FOR A PORT 
:GET 4K BLOCK COIMT 

•LIMIT UC TO MEMORY SIZE 

:N0 CONVERT TO UC 

.•CLEAR BLOCK COlWT 
.•SAVE -A- PORT UC 
;CONT 



WAIT IN BACKGROUND? 

NO 

VES 

CCNT 



;T<PEO*JT? 
;N0 



.-GET COUNT 
.•TYPE IT 



CERS8-C RH7O-RS03 DATA AND RELIABILITV TEST 
CERS8C.pt 1 K-AUG-78 08:29 TSTA 



F 5 

MACY11 30A(1052) 18-AU6-78 
TEST FOR MULTI DISK MODE 



08:26 PAGE U 



SfO 0057 



1 71 8 

T719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

173A 

1735 

1756 

1737 

1738 

1739 

17A0 

1741 

17A2 

17A3 

174A 

1745 

1746 

1747 

T748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

V65 

1766 



011650 
011654 
011656 
011662 
011666 
011672 
011676 
011700 
011702 
011704 
011706 
011710 
011716 
01 1 720 
01 1 726 
011754 
011756 
011740 
011746 
011752 
011756 
011762 
011766 
011772 
011776 
012002 
012006 
012012 
012016 
012022 
012026 
012054 
012042 
012050 
012056 
012064 
CI 2072 
012100 
012106 
012114 
012120 
012126 
012134 
012142 



005737 
001002 
000157 
005057 
010257 
010257 
006502 
006502 
006502 
006502 
006502 
042757 
105005 
052757 
042757 
006502 
105005 
052757 
010257 
015702 
.062702 
010257 
062702 
010257 
062702 
010257 
062702 
010257 
062702 
010257 
012757 
012757 
012757 
012737 
012757 
012757 
012757 
012757 
012757 
012702 
012757 
012757 
012757 
000207 



001216 

012U2 
172540 
001154 
172542 



000040 001126 



000040 
000020 



000020 
001124 
001154 
000200 
172544 
000200 
172546 
000200 
172550 
000200 
172552 
000200 
172354 
077406 
077406 
077406 
077406 
077406 
077406 
077406 
077406 
177600 
020000 
012144 
000020 
000001 



001126 
001126 



001126 



172300 
172502 
1 72504 
172506 
172510 
172512 
172514 
172516 
172556 

000250 
172516 
177572 



5$: 



1$: 



2J: 



012144 104402 000541 
012150 000000 
012152 000002 



K>ON: 
.•MEMORY 



TST 
BNE 
JMP 
CLR 
MOV 
MOV 
ASL 
ASL 
ASL 
ASL 
ASL 
BIC 
BCC 
BIS 
BIC 
ASL 
BCC 
BJS 
MOV 
MOV 
ADO 
MOV 
ADD 
MOV 
ADD 
MOV 
ADD 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



.-SAVE R2 

.•CALCULATE PHYSICAL ADDR 



THIS BIT IS A17 
CLEAR A17? 
SET A17 

SET BIT 5 FOR A17 
CLEAR A16 FLAG 
GET A16 BIT 
CLEAR A16 
SET FLAG FOR A16 
GET PHYSICAL ADDR 
SET UP MEM MGMT 



MMAVA ;MEM MGMT? 

3$ ;YES 
MDON ;GET OUT 

R2,SAVE 
R2.a»KlPAR1 
R2 
R2 
R2 
R2 
R2 

*8]T5.FLAG2 
1$ 

*8IT5.FLAG2 
#8JT4.FLAG2 
R2 
2$ 

#eiT4.FLAG2 
R2.PHADDR 
SAVE.R2 
*200,R2 
R2-a»KIPAR2 
*260,R2 
R2.aw<:iPAR5 
#260.R2 
R2.aM(IPAR4 
#260.R2 
R2.a*KIPAR5 
#260.R2 
R2.aWClPAR6 

#200*256 . -400*UP*RW.a#itIPORO 
#200*256. -400*UP+RU.a#KIPDR1 
#200*256. -400*UP*RW.a«ClP0R2 
#200*256. -400+UP*«W.a»KlPDR3 
#200*256 . -400*UP*RW.a«KJPDR4 
#200*256. -400*UP*RW,aiWCJPDR5 
#200*256. -400*UP*ftW.a(»KlPDR6 
#200*256.-400HJP*RW.a#KIPDR7 
#177600.a#KIPAR7 
#20000.R2 
#WA8T0.a#MMVEC 
#20.SR5 



SET ICIPDR0=RW Kf> 
SET KJP0R1=«U iP 
SET'KIP0R2=«W IF 
SET KIP0«3=«U IP 
SET KIPD<K=RW KP 
SET KJP0R5=«W IF 
SET ICIP0R6=RW IF 
SET ICIPDR7=RU IF 



200 BLOCKS 
200 BLOCKS 
200 BLOCKS 
200 BLOCKS 
200 BLOCKS 
200 BLOCKS 
200 BLOCKS 
200 BLOCKS 



#1 .a»SRO 

PC 



TURN ON 22 BIT MODE 
TURN ON MEM MGMT 



MANAGFMENT ABORT 
TYPF .MTRAP 
MALT 
RTI 



ROUTINE FOR WRITE UP 



.-CAUSED THE ABORT 



TERSt-C HH7O-RS05 DATA AND RELIABILITY 
^ERSBC. Pn U-AuG-78 08:29 



001126 
0122^4 



6 5 

TEST MACV11 30A(1052) 18-AUG-78 
TST4 TEST FOR MULT] DISK MODE 
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SfO 0058 





















V 1 c * J** 




102000 


1 770 




012737 


070000 


1771 

1 f r 1 


01 PI 70 


012701 


012277 


177? 




11?7''1 


000200 


177? 










012200 


105421 




1775 


012202 


105441 




1776 


012204 


105421 




177? 


012206 


105441 




1778 


012210 


105421 




T779 


012212 

Vice > c 


105441 




1780 


012214 


105421 




1781 


012216 


105441 




1 782 


012220 


105421 




1781 


012222 


105441 




1784 


01 2224 


105421 




1 785 


012226 


105441 




1786 


012230 


105421 
105441 




1 787 


012232 

Vice -^%>, 




1788 


012234 


105421 




1789 


012256 


105441 




1790 


012240 


1 02401 




1791 


012242 


000000 




1792 


012244 


005337 


Qy227U 


1793 


012250 


001353 




179*1 


012252 


104402 


000510 


1795 


012256 


104054 




1796 


012260 


000137 


001234 


1797 


012264 


042737 


002000 

Www WW 


1798 


0T2272 


000207 




1799 


01 22 ''4 


000000 

www 




1800 


012276 


000000 

www 




1801 








1802 








1803 


012300 


012704 


000020 


1804 


012304 


012703 


017266 


1805 


012310 


005023 




1806 


012312 


005304 




1807 


012314 


001375 




1808 


012316 


005037 


001004 


1809 


012322 


005037 


001006 


^8^0 


012326 


005037 


001^30 


18^' 


012332 


000205 





.-BACKGROUND TEST FOP INTERRUPTS 



XWAIT; 



2$: 



1$: 



00M26 NPRRET: 

NPRCNT: 

NPRl: 

.CLEAR 

EHRCL: 

1$: 



BIS 
MOV 
MOV 
MOVB 

NEGB 

NEGB 

NEGB 

NEGB 

NkGB 

NEGB 

NEGB 

NEGB 

NEGB 

NEGB 

NEGB 

NEGB 

NEGB 

NEQB 

NEGB 

NEGB 

BVS 

HALT 

DEC 

BNE 

TVPE 

HLT 

JMP 

8JC 

RTS 

0 

0 

ERROR 

MOV 
MOV 

CLR 
DEC 
BNE 
CLR 
CLR 
CLR 
RTS 



*8IT10.fLAG2 
#70000, NPRCNT 
#NPR1+1,R1 
#200, fRi) 

(RD* 
-(R1) 
(RD* 
-(Rl) 
(RD* 
-(Rl) 
(RD* 
-(Rl) 
(RD* 
-(Rl) 
(RD* 
-(Rl) 
(RD* 
-(Rl) 
(RD* 
-CRD 
1S 

NPRCNT 
2S 

.NOJNT 

!DA!UC!DS 

a«l9E61N 

«8]riO,FLAG2 

PC 



TABLE 



#20,R4 

#ERT«.R3 

(R3)* 

R4 

1$ 

PCNT 
fCNT»2 
DROP 
R5 



WAITING IN BACKGROUND TEST 
SETUP TIMEOUT COUNTER 
SETUP WAIT LOOP 



;APir^TiC OPERATJCM FAILED ?m DIAG 



; CLEAR BKGROlMD FLS 



CLEAR 
ERROR 
TABLE 
DONE VET? 
NO 

CLEAR 

PASS COIWT 

CLEAR ALL DROPPED DRIVES 
RETURN 



CERSB-C RH7O-RS05 DATA AND RELIABILITY TEST 
CERSBC.Pn U-AUG-78 08:29 TST<, 



H 5 

MAC VII 50A(1052) 18-AUG-78 
TEST FOR MULTI DISK MODE 
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S£0 0059 



1 81 2 
1813 
18U 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
182< 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1346 
1847 
1848 
1849 
1850 
1851 
'852 



012334 
012540 
012344 
012350 
012352 
012356 
012364 
012370 
012372 
012376 
012402 
012410 
012416 
012424 
012426 
012432 
012440 
012442 
012444 
012452 
012456 
012462 
012464 



012706 
005037 
104402 
000000 
004737 
013737 
004737 
104426 
004737 
005037 
012737 
012737 
012737 
104416 
004737 
032737 
001406 
104006 
012777 
005077 
004737 
000755 
000744 



000500 
001024 
000561 

007130 
177570 
006740 

013152 
001140 
012624 
000340 
000161 

011600 
001000 



U7777 
166370 
007204 



001164 



000024 
000026 
001176 



001132 
166376 



RH70 POWER FAIL TEST #1 

THE STARTING ADDRESS FOR THE WRITE POWER FAIL TEST IS 270, 

A MESSAGE WILL BE TYPED OUT 'lOAD SW WITH UNIT # AND CONT." 

THE OPERATOR NOW HAS TO LOAD THE UNIT * IN OCTAL INTO THE SW REGISTER 

IN BITS 00-01-AND 02. THEN HIT CONT. THE PROGRAM WILL 

WRITE THE COMPLETE DISK WITH A 125252 PATTERN. THE PROGRAM WILL THEN 

TELL OPERATOR TO POWER DOWN. UNTIL THE POWER FAIL, THE PROGRAM WILL 

CONTINUE WRITING THE SAME PATTERN ON THE DISK. 

WHEN POWER FAIL OCCURS THE TRANSFER IS ABORTED 

AND THE PROGRAM HALTS. THE OPERATOR SHOULD 

NOW TURN POWER BACK ON. THE PROGRAM RESTARTS AND CHECKS FOR WRITE ERRORS. 
ONLY ONE ERROR IS ACCEPTABLE. THAT ERROR MAY BE AN OPI (BIT! 5 RSER)OR A DCK 
(81 T 15 RSER). IF THESE ARE THE ONLY ERRORS THAT OCCUR, THE DRIVE IS Wc. 
IF NO ERRORS OCCUR, THE PROGRAM WILL TYPE OUT 't)K". 
THE PROGRAM WILL THEN TELL YOU WHEN TO POWER DOWN AGAIN 

.♦••ONLY ONE ERROR IS CONSIDERED ACCEPTABLE*"* 

;S£T UP STACK 



PF ri 



PFWATT; 
PF WAT: 



MVBVWR: 



3$: 



1$: 



MOV 
CLR 
TYPF 
HALT 
JSR 
MOV 
JSR 
CLRDV 
JSR 
CLR 
MOV 
MOV 
MOV 
DKCMD 
JSR 
BIT 
BEO 
HLT 
MOV 
CLR 
JSR 
BR 
BR 



#500.SP 
rEMP2 
.LOADSW 

PCVECTRR 

avSWR.UNNUM 

PC.FNDTYP 

PC.POWfAL 
DMA 

#D0UM.24 

#340,26 

«161,CMD 

PC, WATT 

•8IT9,fLAG 

IS 

.'DA.'De 

t-1 .aRSAS 

aRSER 

PC.DIS8UF 

MvavwR 

PFWAT 



SETUP INT VECTOR 
SAVE IT 

TST FOR RS03 OR 04 

CLEAR ALL REG 

WRITE 125252 ON DISK 

SET UP POUER FAIL VEC. 

WRITE WITH I/E 
DO IT 

WAIT FOR INTERRl^T 

ANY ERRORS? 

NO 

CLEAR ALL 
ERRORS 

SET UP NEW DISK BUf'FP 



E«S8-C RH70-«S0? DATA , 
ERSBC-P11 K-AuG-78 

1853 012466 012737 

1854 012474 005037 

1855 012500 104426 

1856 012502 015737 

1857 012510 012737 

1858 012516 104416 

1859 012520 013737 

1860 012526 004737 
18b1 012532 032737 

1862 012540 001411 

1863 012542 104006 

1864 012544 052737 

1865 012552 005077 

1866 012556 012777 

1867 012564 004737 

1868 012570 000744 

1869 012572 005737 

1870 012576 100405 

1871 012600 104402 

1872 012612 042737 

1873 012620 000137 
1874 

1875 
1876 
1877 

1878 012624 012737 

1879 012632 000000 
1880 

1881 012634 012737 

1882 012642 012706 

1883 012646 013777 

1884 012654 032777 

1885 012662 001774 

1886 012664 000137 



RELIABILITY TEST 



08:29 




TST4 


012474 
001140 


001156 


UPCHK : 
IS: 


001072 
000151 


1 77776 
001176 


CHKDAT 


00107? 
011600 
001000 


177776 
001132 


3S: 


100000 
166270 
]77777 
00720^ 


001 1 26 
166264 


1$: 


001126 






012604 
100000 
012370 


001126 


2$: 

.•POWER 


012634 


000024 


DOkM: 


012624 
000500 
001164 
000200 


000024 

166160 
166162 


UPP: 
IS: 



012466 



I 5 

MACY11 30A(1052) 18-AUC-78 
TEST FOR MULTI DISK MODE 



08:26 PAGE 47 



SEO 0060 



MOV *1S,HRDER 

CLR DMA 
CLRDV 

MOV PRIORITY.PS 

MOV #151.CMD 
DKCMO 

MOV PRIORITY.PS 

JSfi PC. WATT 

BIT #8IT9.FLAG 

BEQ IS 

HLT IDB.DA 

BIS #eiTlS.FLAG2 

CLR aPSER 

MOV #-1.aRSAS 

JSR PC.DIS8UF 

BR CHKDAT 

TST FLAG2 

BMI 2S 

TYPE ..♦2 

8IC *eiT15.FLAG2 

JMP PFWATT 



RETURN HERE IF WRONG DRIVE INTERRUPTS 

JNIT DRIVE 

WRITECHECK WITH I/E 
DO IT 

WAIT FOR INTERRUPT 

ANY ERRORS? 

NO 

SET ERROR FLAG 
CLEAR ALL 
ERRORS 

SET UP NEW DISK BUFFER 

ANY ERRORS? 
VES 

.ASCIZ <15><12>'tX" 
CLEAR ERROR FLAG 
GO WAIT FOR ANOTHER 
POWER FAIL 



DOWN ROUTINE - ABORT DISK AND HALT 



MOV *UPP,24 
HALT 

nOV «I>0UN,24 

HOV #500.SP 

MOV u^f«JN.aRSCS2 

BIT •8IT7,iiRSDS 

8E0 IS 

JMP UPfMC 



.-SET POWER FAIL VECTOR 



;6£T t 

.•WAIT FOR DRIVE READY 

;G0 CHECK DISK 



CERS8-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSBC.P11 U-AuC-78 08:29 TST^ 



J 5 

MACY11 30A(1052) 18-AUG-78 
TEST FOR MULT J DISK MODE 



08:26 PAGE ^8 



SCO 0061 



1887 










7888 










1889 










1890 










1891 










1892 










1893 










1894 










1895 










1896 










1897 










1898 










1899 










190C 










1901 


012670 


CI 2706 


000500 




1902 


01 2674 


005037 


001024 




1903 


012700 


042737 


001000 


001^26 


1904 


012706 


012737 


012730 


001^56 


1905 


012714 


104426 






1906 


012716 


004737 


007130 




1907 


012722 


004737 


013152 




1908 


012726 


000401 






1909 


012730 


104426 






1910 


012732 


005037 


001 uo 




1911 


012736 


012737 


013102 


000024 


1912 


012744 


012737 


000340 


000026 


1913 


012752 


01 3737 


001072 


1 7777t 


19K 


012760 


012737 


000151 


001176 


1915 


012766 


104416 






1916 


012770 


004737 


011600 




1917 


012774 


032737 


001000 


001132 


1918 


013002 


00U11 






1919 


013004 


104002 






1920 


013006 


052737 


100000 


001126 


1921 


0130H 


005077 


166026 




1922 


013020 


012777 


ynm 


166022 


1923 


013026 


004737 


00720^ 




1924 


013032 


000747 






1925 


013034 


032737 


001000 


001126 


1926 


013042 


001733 






1927 


013044 


005737 


001126 




1928 


013050 


100405 






1929 


01 3052 


104402 


013056 




1930 


013064 


042737 


100000 


001126 


1931 


013072 


0^2717 


001000 


001126 


1932 


0^3100 


000710 







POWER FAIL TEST #2 

THIS TEST WILL TEST THE SAME DRIVE THAT WAS TESTED IN THE 1ST POWER FAIL 
THE PROGRAM WILL WRITE THE COMPLETE DISK WITH A 125252 PATTERN AND WILL 
THEN TELL THE OPERATOR TO POWER DOWN THE PROCESSOR. 

THE PROGRAM WILL THEN WRITE CHECK THE DISK WHILE WAITING FOR A POWER FAIL 
WHEN THE POWER FAIL OCCURS, THE WRITE CHECKING IS ABORTED AND 
THE PROCESSOR WILL HALT. 

THE OPERATOR SHOULD THEN TURN POWER BACK ON, THE PROGRAM WILL 
START WRITE CHECKING THE DISK AGAIN 
♦•♦NO ERRORS SHOULD OCCUR. **♦ 

THE PROGRAM WILL TYPE OUT 'tJK" IF NO ERRORS OCCUR. 
THE PROGRAM WILL THEN TELL YOU TO POWER DOWN. 

DO NOT POWER OFF THE PROCESSOR AGAIN UNTIL THE PROGRAM TELLS YOU SO. 



TEST 



PFT2: 



PWRFL2: 

PWRFl: 
PWRFL: 



CHKDSK: 



3S; 



IS: 



2t: 
4$: 



MOV 

CLR 

BK 

MOV 

CLRDV 

JSR 

JSR 

BR 

CLRDV 

CLR 

MOV 

MOV 

MOV 

MOV 

DKCMD 

JSR 

BIT 

BEO 

HLT 

BIS 

CLR 

NOV 

JSR 

BR 

BIT 

BEO 

TST 

BMI 

TYPE 

BIC 

BIC 

BR 



#500-SP 
TEMP? 

*8IT9,FLAG2 
«PURF1.HRDER 

PC.VECTRR 
PCPOWFAL 
PWRFL 

Dm 

«PWRDN.24 
#340.2^ 
PRJORITY.PS 
#151,C«D 

PC.yATT 

*8IT9,FLA6 

IS 

'DB 

ieiTl5,FLAG2 

iRSER 

#-1 .aRSAS 

PC.DIS8UF 

CHKDSK 

«8IT9,FLAG2 

PWRFL 

FLAC2 

2$ 

•8IT15.FLAG2 
*8IT9 fLAG2 
PWRFL2 



SET UP STACK 

CLEAR POWER FAIL 

RETURN HERE IF WRONG DRIVE INT. 

INir DRIVE 

SETUP INT VECTOR 

WRITE 125252 ON DISK 

WRITE CHECK 

INIT DRIVE 

SET UP POWER FAIL VEC. 
£r«^E l/E 

WRITE CHECK WITH I/E 
00 IT 

WAIT FOR INTERRiPT 

ANY ERRORS? 

NO 

YES 

SET ERROR FLAG 
CLEAR ALL 
ERRORS 

CHECK NEXT BUFFER 

DID POWER FAIL? 
NO 

ANY ERRORS? 
YES 

.ASCI? <15><12>*T)K" 

CLEAR ERRORS 

CLEAR POWER FAIL FLAG 



""ERSB-C RH70-RS03 DATA AND RELIABILITY TEST 
CERSBC.PIl K-AuG-78 08:29 TST4 



K 5 

MACVn 50A(1052) 18-AUG-78 
TEST FOR MULTI DISK MODE 
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SEO 0062 



1933 
1954 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
195A 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
-963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 



013102 
013110 

013112 
013120 
013124 
013132 
013140 
013146 
013150 



.■ROUTINE TO ABORT DISK DURING POWER FAIL 



012737 
000000 

012737 
012706 
013777 
052737 
032777 
001774 
000667 



013112 


000024 


PWRDN: 


MOV 


*PWRUP,24 


;SET UP RESTART 






HALT 






013102 


000024 


PWRUP: 


MOV 


#PWRDN,24 


.-RESET POWER FAIL VECTOR 


000500 




MOV 


*500.SP 




001164 


165702 




MOV 


UNNUM.aRSCS2 


;GET UNIT 0 


001000 


001126 




BIS 


*8IT9,FLAG2 


.SET POWER FAIL BIT 


000200 


165676 


1$: 


BIT 


#8IT7,aRSDS 


.•WAITING FOR 




BEQ 


1$ 


.•DRIVE READY 








BR 


PURFl 


:G0 CHECK DISK 



ROUTINE TO WRITE THE COMPLETE DISK 
WITH 125252 PATTERN 
WRITE CHECK AND REPORT ERRORS IF THEY 
REPORT "tlK" AT COMPLETION 



OCCUR 



013152 


012737 


000020 


001142 


POWFAL: 


MOV 


#20,PATNU 


013160 


042757 


000004 


001152 




BIC 


*BIT2.FLAG 
#8IT1?.FLAG2 


013166 


052757 


010000 


001126 




BIS 


013174 


005057 


001140 






CLR 


DMA 


013200 


012757 


020000 


017526 




MOV 


#20000. 0UT8UF 


013206 


012757 


020000 


001122 




MOV 


#20000. VADDR 


013214 


012737 


010000 


001150 




MOV 


#10000,SWRDCT 


013222 


013757 


001150 


001154 




MOV 


SWRDCT.WRDCT 


013230 


005057 


001120 






CLR 


AOei 


013234 


015757 


017526 


001144 




MOV 


ourauF .8UF 


013242 


004557 


007650 






JSR 


R5.PASEL 


013246 


012757 


000161 


001176 


WRDNW: 


MOV 


#161.CMD 


01325^ 


104416 








DKCMD 




013256 


004757 


011600 






JSR 


PC .WATT 
#151,C«D 


013262 


012737 


000151 


001176 


2$: 


MOV 


013270 


104416 








DKCMD 




013272 


004737 


011600 






JSR 


PC.UATT 


013276 


052757 


001000 


001132 


4S: 


BIT 


#8jr9,fLAG 


013304 


001402 








BEO 


IS 


013306 


104006 








HLT 


!Oe!DA 


013310 


000000 
004757 








HALT 




013312 


007204 




1$: 


JSR 


PC.DISBUF 


013316 


000755 








BR 


WRDNW 


013320 


104402 


01 3524 






TYPE 


..♦2 

PC 


015342 


O00207 








RTS 



.'SET UP PATTERN 
.•CLEAR XFER MODE FLAG 



GET STARTING ADDR FOR BUF 

SETUP WORD COIMT 

A PORT ONLY 

SET UP CURRENT ADDRESS 

GENERATE DATA »JFFER 

WRITE WITH I/E 

DO IT 

VMIT FOR INTERRUPT 
WRITECHECK I/E 
DO ir 

WAIT FOR INrERRLr>T 

ANY ERRORS? 

NO 

YES 

CAN NOT WRITE WITHOUT ERROR 
SET l#» NEW DISK BUFFER 
WRITE NEW BUFFER 
.ASCI 7 <15><12>*»^R DOnW 



CE«S8-C RH70-RS03 DATA AND RELJABILJTY TEST MACV11 
CERSBC.P11 K-AUG-78 08:29 TST4 TEST f 



1977 


013544 


052757 


000010 


177570 


OUT: 


BIT 


1978 


013552 


001532 








BEO 


1979 


01 3354 


005004 








CLR 


1980 


013556 


005003 








CLR 


1981 


013360 


055737 


001 1 30 


001166 




BIS 


1982 


013366 


013757 


001166 


001226 




MOV 


1985 


01 337A 


012705 


000401 






MOV 


1984 


015400 


050557 


001226 




4$: 


BIT 


1985 


015404 


001006 








8NE 


1986 


01 5406 


005204 






5$: 


INC 


1987 


015410 


010403 








MOV 


1988 


015412 


000241 








CLC 


1989 


015414 


006105 








ROL 


1990 


013416 


103505 








BCS 


1991 


013420 


000767 








BR 


1992 


015422 








2$: 




1993 


015422 


104402 


013426 






TYPE 


199<. 


015436 


010446 








MOV 


1995 


015440 


104406 








TYPES 


1996 


015442 


004737 


01 3720 






JSR 


1997 


015446 


010304 








MOV 


1998 


015450 


104402 


013454 






TYPE 


1999 


013460 


104402 


000630 






TYPE 


2000 


015464 


104402 


013470 






TYPE 


2001 


013474 


013746 


001206 






MOV 


2002 


013500 


104406 








TYPES 


2003 


013502 


104402 


013506 






TYPE 


2004 


013512 


104402 


000657 






TYPE 


2005 


013516 


104402 


01 3522 






TYPE 


2006 


013526 


01 3746 


001212 






MOV 


2007 


01 3532 


104406 








TYPES 


2008 


013534 


104402 


013540 






''YPE 


2009 


013544 


104402 


000642 






TYPE 


2010 


013550 


104402 


013554 






TYPE 


2011 


013560 


013746 


001210 






MOV 


2012 


013564 


104406 








TYPES 


2013 


013566 


104402 


013572 






TYPE 


2014 


013612 


013746 


001214 






MOV 


2015 


013616 


104406 








TYPES 


2016 


013620 


104402 


013624 






TYPE 


2017 


013630 


000666 








BR 


2018 


013632 


043737 


001130 


001166 


3$: 


SIC 


2019 


013640 


062706 


000002 




1$: 


ADD 


2020 


01564*» 


AAC1 17 








LOn 


2021 


013650 


032737 


000040 


177570 




BIT 


2022 


013656 


001035 








BNE 


2023 


013660 


104402 


013664 






TYPE 


2024 


013700 


013746 


001006 






MOV 


2025 


013704 


104406 








TYPES 


2026 


013706 


104402 


013712 






TYPE 


2027 


013716 


000415 








BR 



L 5 

30A(1052) 18-AUG-78 08:26 PAGE 50 
3R MULTI DISK MODE 



SEO 0063 



#8iT3,SWR 
1$ 

R4 
R5 

DR0P,UNITSV 

UNI TSV- WORK 

#401 .R5 

R5,W0RK 

2$ 

R4 

R4,R3 

R5 
3$ 
4$ 

..*2 
R4,-(6) 

PC. GE TERR 
R3.R4 
..♦2 
,WRTERR 

WRITER. -(6) 

..*2 
,RDERR 

READER. -(6) 

..*2 
.WCKERR 

WCERR.-{6) 

..♦2 

C0MERR.-(6) 

H 

OROP.UNITSV 

#2.SP 

A081 

#8IT5.SUR 

DONE 

..♦2 

PCNT*2.-(6) 

..♦2 

DONE 



TYPEOUT ERROR COUNT' 
NO 

CLEAR UNIT # 

RESTORE ALL DRIVES 
GET UNITS ON SYSTEM 
SETUP TEST FOR UNITS 
IS THIS UNIT ON SYS 
YES 

INC UNIT # 
SAVE UNIT # 

GET NEXT DRIVE 
DONE 

FIND NEXT DRIVE 

.ASCiZ <15><12>'\f*IT " 

PUT M ON STACK 

TYPE STACK IN OCTAL - SUPRESS 

GET ERROR COUNT 

RESTORE IMIT « 

.ASCIZ <15><12> 

ASCIZ " 
PUT URITER ON STACK 
TYPE STACK IN OCTAL - SUPRESS 
.ASCIZ <15><12> 

.ASCJZ "S 

PUT READER ON STACK 

TYPE STACK IN OCTAL - SlFRESS 

.ASCJZ <1S><12> 

.ASCIZ •• 

PUT WCERR ON STACK 

TYPE STACK IN OCTAL - SUPRESS 

.ASCIZ <15xl2>'tOHPARE ERRS " 

PUT CGHERR GN STACK 

TYPE STACK IN OCTAL - SUPRESS 

.ASCIZ <15x12> 

GET NEXT DRIVE 

REDROP DRIVES 

RESTORE SP DUE TO JMP EXIT FROM JSR ROUTINE 
SET A OR B PORT FLAG 
TYPEOUT PASS COIHT? 
NC 

.ASCIZ <15><12>"tND PASS " 
PUT PCNT+2 ON STACK 
TYPE STACK IN OCTAL - SUPRESS 
.ASCIZ <15><12> 



CERS8-C RH70-RS03 DATA AND RELIABJLlTY 
CERSBC.P11 U-AUG-78 08:29 



2028 

2029 

2050 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 



01 3720 
013722 
013724 
013730 
013734 
013740 
013744 
013750 



006304 
006304 
062704 
112437 
112437 
112437 
112437 
000207 



resr 

TST4 
GETERR; 



M 5 

MACY11 50A(1052) 18-AUG- 
TEST FOR liULTI DISK MODE 



78 08:26 PAGE 51 



SEO 0064 



01 7266 
001206 
001212 
001210 
001214 



ASL 


R4 


.-GET LOC IN 


ASL 


R4 


;ERR TABLE 


ADD 


#ERTA8.R4 


M0V8 


(R4)*. WRITER 


;6ET WRITE ERRS 


M0V8 


(R4)*. READER 


;GET READ ERRS 


M0V8 


(R4)*.WCERR 


;GET WRITE CK ERRS 


MOVB 


(R4)*.C0MERR 


;6ET COMPARE ERRS 


RTS 


PC 











.S8TTL 




SDONE - BELL AND 


SCOPE ROUTINE 


013752 


104400 






DONE: 


SCOPE 




TERMINATIONG SCOPE FOR LOOPING 


013754 


062737 


000001 


001006 




ADD 


#1.PCNT*2 ! 


ADD 1 TO THE PASS COUNT 


013762 


005537 


001004 






ADC 


PCNT 


MAKE IT DOUBLE PREC. 


01 3766 


01 3700 


000042 




4S: 


MOV 


a«4?,R0 


GET MONITOR ADDRESS 


01 3772 


001405 








BEQ 


SEND1 ; 


IF NONE 


01 3774 


000005 








RESET 




GO TO MONITOR 


013776 


004710 






SENDAD: 


JSR 


7.(0) 


014000 


000240 


000240 


000240 




240,240.240 


SAVE ROOM FOR ACT11 


014006 


000137 


003176 




SEND1 : 


JMP 


AOTST 


RETURN 


014012 


000000 






.T8IT: 


0 




T BIT FLAG 


014014 


01 2702 


000001 




.LOGW: 


MOV 


#1.R2 


■LOG hAITE ERR 


014020 


005003 






CL IND: 




R3 


CLEAR INDEX FOR TABLE 


014022 


000413 








BR 


ADDRR 




01 4024 


01 2702 


000400 




.LOGK: 


MOV 


«400,R2 ;10G WRITE ERR 


014030 


000773 








BR 


CLJND 




014032 


012702 


OOOOOl 




. LOGWC : 


MOV 


•1.R? .LOG WRirc CK ERR 


014036 


012703 


000002 




SETIND: 


MOV 


#2.R3 .SET INOCX FOR NEXT WD 


014042 


000403 








BR 


ADDRR 






\i\CI Uc 








NOV 


#400 .ft2 ;L06 COMPARE ERR 


014050 


000772 








BR 


SETIM) 




014052 


005737 


001204 




ADDRR: 


TST 


LOPCNT 


;)ST TIME ERROR? 


014056 


001014 








BNE 


1$ 


;N0 DO NOT COMT IT 


014060 


013704 


001164 






MOV 


UNNl#t.R4 


.GET IWIT # 


014064 


006304 








ASL 


R4 


;6ET 


014066 


006304 








ASL 


R4 


.POSITION IN 


014070 


060304 








ADD 


R3.R4 


;ERR TABLE 


014072 


060264 


017266 






ADD 


R2.ERrAB(R4) 


;T0 ADD ERROR 


014076 


004737 


014112 






joR 


PC.PRNT 


.TVPEOUT? 


014102 


001402 








BEQ 


IS 


.YES 


014104 


004737 


014760 






JSR 


PC.DRP 


.SHOULD I DROP DRIVE? 


014110 


000002 






1$: 


RTI 






014112 


032757 


020000 


177570 


PRNT: 


BIT 


#8IT13.SWR 


.INHIBIT TYPfOUT? 


014120 


000207 








RTS 


PC 





CERSB-C RH70-RS03 DATA AND RELJASILITY TESf 
CERSeC.PII U-AUG-78 08:29 



2079 


0K122 


052737 


000004 


001126 


RSREG: 


BiS 


2080 


0U130 


005737 


016134 






TST 


2081 


0K13*» 


y^/> 4 ^ -7 

001017 








BNE 


2082 


0U136 


104402 


014142 






TYPE 


2083 


0H150 


010046 








MOV 


2084 


OKI 52 


^ A / /Ay 

104404 








T W AC" 

TVPEO 


2085 


0H15A 


^ A y y A*^ 

104402 


/\ 1 y 1 z A 

OK 160 






TYPE 


2086 


OKI 70 


A4 /\4 y y 

010146 








UAl 1 

MOV 


2087 


014172 


4 Ay y Ay 

104404 








T WAP A 

TYPtO 


2088 


OK 174 








oS: 




2089 


014174 


104402 


014200 






TYPE 


2090 


014206 


AI ^^y 

01 r rA6 


4 ^ y ^ "^A 

1 64620 






MOV 


2091 


014212 


i Ay y Ay 








T WAC A 

TYPcO 


2092 


014214 








I J: 




2095 




i Ay / AI 


AI / HA 

014^^0 






TYPc 




Al y 

0K226 


01 r 746 


164614 






MOV 




014^:32 


1 Ay y Ay 








TVrcO 


2096 


A1 i "IT/ 

014234 








2S: 






Ai y iTy 

014254 


1 Ay y AI 


AI / 1/ A 

014«f40 






TYPE 




A 1 y iy z. 


AI 77y 

01 rf**b 


iz.y c^i 
16^36^ 






MOV 




Aiy 1C1 
014tf5^ 


1 Ay y Ay 








T VOC A 

TTPcO 


? lOO 


Ai y icy 


1 Ay / AI 


AI y i^A 






TYPE 


i 10 1 


AI y i^y 


1 Ay y AI 


AI y 17A 






T VDC 

TYPE 


2 lOc 


AI y i7iL 


AI 77y ^ 

01 ff'ib 


1 z.y c^i 
164 36c 






MOV 


AT 

<: lOi 


AI y 1A1 


1 Ay / A/ 








TYPtO 


Ay 


AI y TAy 


1 Ay y AI 


AI y 11 A 






T Yrt 




AI y T1 ^ 
UK510 


AI 77/ 


1 i^y cy A 






nuv 


<r iU6 


AI y Til 


1 Ay / A/ 








T VDC A 

T YPEO 


A7 


AI y Tiy 


1 Ay / AI 


AI y TTA 
01 «»55U 






T VDC 

TYPE 


AQ 

<: lUo 


AI y TTy 
0 |455*» 


A11717 


AArt1/^A 


A1 A1 1/ 

0161 5«> 




D T T 

BI T 


"51 AQ 


AI 1 Ty 1 


AA1 111 








BNE 


11 "1 A 


AI y T/ y 
U lH5»t*» 


AT17T7 


A/VM AA 
0001 00 


AI iLI 1/ 

0161 54 




dJ 1 


?l 11 


A1 y TCI 


AA1 y 1 A 

00 IS lU 








DC A 

□EO 


2i 12 


AI y Tcy 
0 l*»53<t 


1 Ay y AI 
IOh%U<: 


AI y T^A 

0K560 






T VDC 

TYPE 


CI 1-5 


AI y T^^ 


AI 77y 
01 f IhO 


1 iL/ y CiC 






MOV 


Hi/ 


A1 y T71 


1 Ay y Ay 








T VDCA 

TYPED 


2110 


AI y 17/ 
UK5f «♦ 


AH717 


A AAA 1 A 

00v0<:0 


A1 ^1 1/ 

016154 


i« . 
5»: 


0 f T 

Bl 1 


«: 1 16 


AI y y AI 


AA1 y 1 A 

UOlslO 








OCA 

BEO 


11 1 7 

2m ^ 


AI y y Ay 
014A04 


1 Ay y AI 
104402 


AI y y 1 A 
OKslO 






TYPE 


11 1 3 
Clio 


AI y / 1Z. 


AI 77/ X 


1^/ y 1Z. 






MOV 


11 1 o 


A1 y y 11 


1 Ay y A/ 








TYPEO 


11 1A 


AI y y ly 


AH717 


AAAAAy 
000004 


AI ill ly 
0161 54 


4»: 


n t T 

81 1 


11 'Ol 


A1 y / 11 










DC A 


11 11 
dice 


AI / y iy 
01h4 J*» 


1 Ay y AI 


AI 1 1 1 l\ 

01h<i*»0 






TYPc 


11 1"? 


AI / y y ^ 


AI 77y 

01 ' r h6 


1 z.y 17A 
1 645/0 






MA( / 

WOV 


11 1/ 
die** 


Mil CI 


1 Ay y Ay 








TVQC A 

TYPfcO 


11 1C 

2125 


AI y y cy 


A11717 


AA/V%1 A 

OOUOlO 


AIZ.1 Ty 
0i61 54 


CC . 


D r T 

BIT 


11 liL 

dido 


A1 1 1 i.*^ 


AA1 y 1 A 








BEO 


c 1 £ r 


A I A AAA 












2128 


014476 


017746 


164334 






MOV 


2129 


014502 


104404 








TYPED 


2130 


0.14504 


032737 


000040 


016134 


6$: 


BIT 


2131 


014512 


001410 








BEO 


2132 


014514 


104402 


014520 






TYPE 


2133 


014526 


01 7746 


164312 






MOV 
'•yPEO 


2134 


014532 


104404 









N 5 

MACY11 30A(1052) 18-AI 
SOONE - BELL AND SCOPE 



#81 T2, FLAG? 

.HLTCT 

8$ 

..♦2 

BAD, -(6) 



..♦2 

GOOD. -(6) 



..>2 

aRSCSU-(6) 



..*2 

aRSER,-(6) 



..*2 

aRSCS2.-(6) 

,.*2 
,.♦2 

aRSCS3.-(6) 

aRS8Ae,-(6) 

..*2 

#200.. HLTCT 
SEEC 

#AS,. HLTCT 
3$ 

aRSAS.-(6) 

#BA. .HLTCT 

4$ 

,.♦2 

aRS8A.-(6) 

#DA.. HLTCT 

5$ 

..*2 

aRSDA,-(6} 

#WC.. HLTCT 
6S 

aRSWC,-(6) 

*DS. .HLTCT 

9$ 

..*2 

ar-;*^Ds.-(6) 



16-78 08:26 PAGE 52 

ROUTINE SEQ 0065 

.SET ERROR FLAG 

.•SHOULD WE TYPE GOOD AND BAD 

;N0 

.-.ASCIZ •BAD=" 
.•PUT BAD ON STACK 
;TYPE STACK IN OCTAL 
.-.ASCIZ '• GOOD=" 
;PUT GOOD ON STACK 
.-TYPE STACK IN OCTAL 

.-.ASCIZ " CS1=" 
;PUT aRSCSl ON STACK 
.-TYPE STACK IN OCTAL 

;. ASCIZ " ER="' 
.PUT iRSER ON STACK 
;TroE STACK IN OCTAL 

;.ASCJ2 " CS2=" 
.-PUT aRSCS2 ON STACK 
;TYPE STACK IN OCTAL 
;. ASCIZ <15><12>'" 
.-.ASCIZ •• CS3s:" 
.PUT aRSCS3 ON STACK 
; TYPE STACK IN OCTAL 
.-.ASCIZ " BAE=" 
.-PUT aRSBAE ON STACK 
.-TYPE STACK IN OCTAL 
.-.ASCIZ <15><12>"" 
.PRINT SEC(M SET ? 
.YES 

.PRINT ER ? 
;N0 

.-.ASCIZ " AS=" 

:Pur aRSAS CM stack 

;TYPf stack IN OCTAL 
.-PRINT BUS ASSRESS 
;N0 

;. ASCIZ "BAs" 
.-PUT iRSBA ON STACK 
.TYPE STACK IN OCTAL 
.PRINT DA ? 

;N0 

.-.ASCIZ •• DA='" 
.-PUT aRSM ON STACK 
.-TYPE STACK IN OCTAL 
.-PRINT UC? 

;N0 

* ASCIZ " WC=" 
•PUT WSWC ON STACK 
.TYPE STACK IN OCTAL 
.-DRIVE STATUS 
;N0 

.-.ASCIZ '• DS=" 
;PUT aRSDS ON STACK 
;'YPE STACK IN OCTAL 



^ISIi^'^o?';'''^^?^.^^^^..'^ RELIABILITY TEST MACVII 30A(1052) ^18-AUG-78 08:26 PAGE 53 

CERS8C.P11 K-AUG-78 08:29 JOONE - 8ELL AND SCOPE ROUHNE SCO 0066 

2135 OK53A 032757 000002 016134 9$: BIT #D8..HLTCT .PRINT DATA BUFFER 



2136 

?137 

2138 

2139 

2U0 

2H1 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

218? 

2183 

2184 

2185 

2186 

2187 

2188 

2189 



qH7O-fiS03 DATA AND RELlAeiLlTY 


TEST 


MACY11 


P11 14-AUG-78 08:29 






SDONE 


014542 


001461 








BEQ 


014544 


104402 


014550 






TYPE 


014556 


01 7746 


164272 






my 


014562 


104404 








TYPED 


014564 


000137 


OK 706 






JMP 


014570 


042737 


000200 


0161 34 


SEEC: 


BIC 


014576 


032737 


000240 


Olfel 34 




BIT 


014604 


001410 








BEQ 


014606 


104402 


0146^2 






TYPE 


014620 


01 7746 


164234 






MOV 


014624 


104404 




016134 




TYPEO 


014626 


032737 


000220 


10$: 


BIT 


014634 


001410 








BEQ 


014636 


104402 


014642 






TYPE 


014650 


01 7746 


164202 






MOV 


014654 


104404 








TYPEO 


014656 


032737 


000204 


0161 34 




BIT 


014664 


OOUlO 








BEQ 


014666 


104402 


014672 






TYPE 


014700 


01 7746 


164146 






MOV 


014704 


104404 








TYPEO 


014706 


032737 


010000 


001 126 


PTDONE : 


BIT 


014714 


001111 








BNE 


014716 


104402 


014722 






TYPE 


014732 


013746 


001006 






MOV 


014736 


104406 








TYPES 


014740 


032737 


001000 


177570 




BIT 


014746 


001404 








BEQ 


014750 


104402 


014754 






TYPE 


014760 


032737 


000001 


177570 


0»P: 


BIT 


014766 


001464 








BEO 


014770 


013704 


001164 






MOV 


014774 


004737 


013720 






JSR 


015000 


063737 


001206 


001212 




ADD 


015006 


063737 


001212 


001210 




ADD 


015014 


063737 


001210 


001214 




ADD 


015022 


022737 


000023 


001214 




CMP 


01 5030 


103043 








BHIS 


015032 


053737 


001170 


001130 




BIS 


015040 


104402 


015044 






TYPE 


015064 


013746 


001164 






MOV 


015070 


104406 








TYPES 


015072 


104402 


000757 






TYPE 


015076 


113703 


901130 






M0V8 


015102 


113704 


0C1166 






M0V8 


015106 


020304 








CMP 


015110 


001003 








8NE 


015112 


000000 








HALT 


015114 


000137 


001234 






JMP 


015120 


032737 


100000 


oon32 


2S: 


BIT 


015126 


001002 








BNE 


015130 


005037 


001142 






CIR 


015134 


000137 


006154 




3$: 


JMP 


015140 


000207 






RETT: 


RTS 



C 6 

30A(1052) 18-AU6-78 08:26 
■ BELL AND SCOPE ROUTINE 



PAGE 54 



SEO 0067 



PTDONE 
..♦2 

aRSDB,-(6} 

PTDONE 

#200..HLTCT 

#OT,.HLTCT 

10S 

..♦2 

aRSDT.-(6) 

•MR..HLTCT 

11$ 

..♦2 

aRSMR.-{6) 

#LA..HLTCT 

PTDONE 

,.*2 

aRSLA,-(6) 

*8IT12,FLAG2 
RETT 

PCNT*2.-(6) 

«SIT9,SUR 

DRP 

..♦2 

«8IT0,SWR 
RETT 

UM01,R4 

PC.6ETERR 
WRITER. READER 
READER .WCERR 
WCERR.COHERR 
#23,C0«ERR 
RETT 

UNCMP.DROP 
.-♦2 

imj«.-(6) 

,CRLFLF 

DR0P.R3 

LWJTSV.R4 

R3.R4 

2% 

aUBEGIN 

«8IT15.FLAG 

3$ 

PATNU 

a^EXTPPR 

PC 



NO 

.ASCIZ " D8=" 
PUT aRSDB ON STACK 
TYPE STACK IN OCTAL 
GET OUT 

CLEAR COMMON BIT 
PRINT DRIVE TYPE? 
NO 

.ASCIZ " DT=" 

PUT aRSDT ON STACK 

TYPE STACK IN OCTAL 

PRINT MN? 

NO 

.ASCIZ " MR=" 

PUT aRSMR ON STACK 

TYPE STACK IN OCTAL 

PRINT LA? 

NO 

.ASCIZ " LA=" 
PUT aRSLA ON STACK 
TYPE STACK IN OCTAL 
POUER FAIL TEST? 

.ASCIZ <15><12>'T»ASS " 

PUT PCNT+2 ON STACK 

TYPE STACK IN OCTAL - SUPRESS 

LOOPING ON ERROR? 

NO 

.ASCIZ <15><1?> 
DROP DRIVE? 
NO 

GET UNIT 0 
GET ERRORS 
ADD THE ERRORS 



DROP DRIVE? 
NO 

DROP DRIVE 

.ASCIZ <15><12>" DROPPED UNIT 

PUT IMOI ON STACK 

TYPE STACK IN OCTAL - SUPRESS 

GET DROPPED ifilTS 

GlT all drives 
all drives dropped? 

NO 

NO MORE DRIVES 
RESTART TEST 

DID a«>ERATOR SELECT PATTERN 
YES 

NO CLEAR IT 
GET NEXT DRIVE 
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SEO 0068 



2190 

2191 

2192 

2193 

219^ 

21 9S 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

22K 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

222Z 

222^ 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 



015142 015705 015166 



.ROUTINE TO RESTORE LOADER 
RLDR: MOV LDR1 .R5 



015146 
015152 
015156 
015160 
015162 
015164 
015166 



015170 
015176 
015204 
015210 
015214 
015222 
015230 
015234 
015240 
015244 
015246 
015250 
015254 
015260 



015262 
015262 
015304 
015312 
015316 
015332 
015336 
015340 
015354 
015360 
015362 
015400 
015404 
015406 
015414 
015416 
015432 
015436 
015440 
015444 
015450 
015452 
015454 
015460 
015462 
015470 
015472 



012704 
012702 
012425 
005302 
001375 
000000 
017500 

172100 
000114 
012737 
012737 
013746 
013746 
012737 
012737 
012700 
012702 
012720 
006302 
103374 
012637 
012637 
000207 



104402 
052737 
104402 
104402 
013746 
104404 
104402 
013746 
104404 
104402 
013746 
104404 
032737 
001422 
104402 
005737 
001406 
013746 
013746 
104412 
000403 
013746 
104406 
032737 

00H01 
000000 



017500 
000155 



1$: 



LDR1 



MOV 

MOV 

MOV 

DEC 

BNE 

HALT 

.WORD 



000114 
000116 



000004 
000006 



001126 



015262 
000340 
000004 
000006 
000006 
000002 
172100 
00CO01 
000001 



000006 
000004 



015266 
004000 
000757 
015322 
1 777^2 

015344 
1 77740 

015366 
1 77744 



000010 001126 

015422 
001216 

^ 77776 
001154 



001154 

100000 177570 



PARCSR= 172100 
PARVEC=114 
.MAMK: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

1$: MOV 
ASL 

see 

MOV 
MOV 
RTS 

.PARITY MEMORY 



.PARSft*^: 



121: 
13$: 



TYPE 

BIS 

TYPE 

TYPE 

MOV 

TYPED 

TYPE 

MOV 

TYPED 

TYPE 

MOV 

TYPED 

BIT 

BEO 

TYPE 

TST 

BEO 

MOV 

MOV 

TYPE A 

BR 

MOV 

TYPES 

BIT 

BEO 

HAI T 



#17500-R4 

*155.R2 

(R4)*.{R5)* 

R2 

IS 

17500 



GET FIRST ADDRESS OF WHERE LOADER IS 
TO BE RESTORED 

ADDRESS WHERE LOADER IS STORED 

WORD COUNT 

RESTORE 



.•DONE 

.-FIRST ADDRESS WHERE LOADERS ARE SAVED 



#.PARSRV.i*PARVEC 
#340,a»PARVEC*2 ; 
a*4.-(SP) 

at6, -(SP) 
#6.a»4 

«RTi.a#6 
#PARCSR,RO 
#1.R2 
#1,(R0)* 

R2 ; 
IS 

(SP>*.a#6 ; 
PC 

TRAP 



SET PRI LEVEL TO 7 

SAVE CURRENT ERROR VECTOR 

SAVE PRIOITY LEVEL 



GET FIRST CSR ADDR 

SET ACTION ENABLE If AVAILABLE 
SHIFT AVAILABILITY INDICATOR 

RESTORE ERROR VECTOR PRIORITY 
WD INTERRUPT VECTOR 



..♦2 

481 Til, FLAG? 
.CRLFLF 



HERADD.-(SP} 
..♦2 

LERADD.-(SP) 
..♦2 

MEMERR.-<SP) 

«8IT3.FLAG2 
13$ 

WAVA 
12S 

PS, -(6) 
SA»E.-(6) 

13S 

SAVE. -(6) 

•eins.swR 



;.ASC1Z <15><12>'T»ARITY ERR' 
.SET ERROR FLAG 

;.ASC1Z "HlEn= " 



.ASCI/ LOER^* 



.-.ASCIZ HE REG=* 



WERE UE COMPARING DURING ERROR? 
NO 

.ASCIZ " ADDR=" 
IS MEM PWMT ON? 
NO 

GET PS 

GET VIRTUAL ADDR 
CONVERT ro PHY AND TYPE 

CONT 

GET ADDR 
TYPE IT 

HALT ON ERROR? 

NO 

YES 
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2247 015500 000157 003212 JMP EXMfLG .-RESTART TEST 
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SEO 0070 



22A8 .S8TTL 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 

2'''58 0T5504 0104^6 -TYPE: 

2259 015506 010546 

2260 015510 017605 000004 

2261 015514 032705 177400 

2262 015520 001002 

2263 015522 016605 000004 

2264 015526 105715 t: 

2265 015550 001423 

2266 015532 122715 000012 

2267 015536 001012 

2268 015540 113704 001015 

2269 015544 113777 001014 163246 5$: 

2270 015552 105777 163240 

2271 015556 100375 

2272 015560 005304 

2273 015562 001370 

2274 015564 112577 163230 4$: 

2275 015570 105777 163222 

2276 015574 100375 

2277 015576 000753 

2278 015600 017646 000004 2$: 

2279 015604 062766 000002 000006 

2280 015612 022666 000004 

2281 015616 001006 

2282 015620 062705 000002 

2283 015624 042705 000001 

2284 015630 010566 000004 

2285 CI 5634 0126C5 3$: 

2286 015636 012604 

2287 015640 000002 



STYPE - TTY TYPEOUT ROUTINE 



THIS ROUTINE IS USE TO TYPE ASCII MESSAGES ON THE TTY. THE 
CALL CAN BC IN ONE OF 3 FORMS. 1) 'TYPE .ADR" - TYPES THE 
MESSAGE STARTING IN LOCATION "ADR:'' 2) '^TYPE ,CHAR" - TYPES 
THE ASCII "CHAR". AND 3) "PRINT «l5><12>'MeSSAGE'> - TYPES 
THE MESSAGE WHICH IS INLINE ASCII. THE FILLER CHARACTER yHlCH IS 
TYPED AFTER A LINE FEED IS IN FILCHR AND THE Nl^ER OF FILLERS 
IS IN FILCHR+1. 



MOV 

MOV 

MOV 

BIT 

BNE 

MOV 

TST8 

BEQ 

CMP8 

BNE 

M0V8 

M0V8 

TST8 

BPL 

DEC 

BNE 

M0V8 

TST8 

BPL 

BR 

MOV 

ADD 

CMP 

BNE 

ADD 

81 C 

MOV 

MOV 

MOV 

RTI 



R4.-(6) 
R5,-(6) 
a4(6).R5 
#1 77460. R5 
1$ 

4(6) .R5 

(R5) 

2S 

#12. (R5) 
4S 

FILCHR+1.R4 

FILCHR, iTPB 

aTPS 

.-4 

R4 

5$ 

(R5)*,aTP8 

aTPS 

.-4 
IS 

a4(6).-(6> 
<'2.6(6) 
(6)*.4(6) 
3$ 

#2,R5 

#1.R5 

R5.4(6) 

(6>«,R5 

(6)».R4 



SAVE R4 
SAVE R5 

GET ADDRESS TO BE TYPED 

IS IT A TYPEM? 

NO 

GET ADDRESS OF CHARACTER 

TERMINATOR? 

GET OUT IF SO 

IS THE CHAR A LINE FEED 

NO - GET OUT 

GET THE FILL COlWT 

TYPE A FILLER 

DONE YET? 

NO - WAIT 

DEC COINT 

LOOP UNTIL 0 

LOAD AM> TYPE THE CHARACTER 

IS THE PRINTER READY 

WAIT iMTiL IT IS 

GET THE NEXT CHARACTER 

GET ADDRESS TO BE TYPED 

ADD 2 TO THE ADDRESS 

IS IT .♦2? 

NO 

ADD Z TO THE ADDRESS 
BACK UP TO AN EVEN BYTE 
RESTORE ADDRESS 
RESTORE R5 
RESTORE R4 
RETLVVl 
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SfO 0071 



2288 
2285 
2290 
2291 
2292 
2293 
229<, 
2295 
2296 
2297 

2298 
2299 
2500 
2501 
2302 
2303 
2504 
2305 
2306 
2307 
2308 
2309 
2510 
2311 
2312 
2313 
23K 
2315 
2316 
2317 
2318 
2319 
2320 
2521 
2322 
2325 
252A 
2525 



0156A2 
015650 
015652 
01565A 
015660 
015666 
015672 
015676 
015700 
015702 
015706 
015710 
015716 
015720 
01 5 72A 
015726 
015734 
015736 
0157AA 
015750 
015754 
015762 

015764 
015770 
015776 
016002 
016004 
016010 



052737 
001045 
000416 
0157A6 
012757 
005757 
012657 
000422 
022626 
012657 
000426 
052757 
001012 
105757 
001404 
125737 
003015 
112737 
105237 
011637 
013737 
000002 

105237 
013737 
005737 
001760 
013716 
000002 



.S8TTL 



SSCOPE - SCOPE LOOP HANDLuR 



THIS ROUTINE HANDLES THE ITERATIONS, LOOPING. ERROR 
LOOPING. AND THE DISPLAYING OF THE TEST NUMBER. 
"SCOPE" IS PLACED BETWEEN EACH SUBTEST IN THE TEST AND 
RECORDS THE STARTING ADDRESS OF THE SUBTEST IN "LAD:" 



OA 0000 


177570 




BIT 


#SW14 a#SWR 


LOOP ON TEST' 








BNF 


KIT 


LOOP ON TEST IS SET 








op 


3$ 


SKIP - NOP FOR XOR TESTER 








MOV 


MTA -(6) 


PUSH at4 ON STACK 


015700 


000004 

w WV^ 




MOV 


at4 


SET FOR TIMEOUT 


177060 






TST 


a#1 ^7060 




000004 






MOV 


(6)*.a»4 


POP STACK INTO at4 








BR 


.SVLAD 


NO ERROR - GO TO NEXJ TEST 






4$; 


CMP 


(6) (6)* 


CLEAR STACK 


OOOOCA 






MOV 


(6)^.iV4 


'POP STACK INTO if 4 








BR 


.KIT 


ERROR - LOOP ON TEST 


004000 


1 7^570 


3$: 


BIT 


tsuii.airswR 


•KILL ITERATIONS 








ONE 


• SVLAD 


-YES - KILL ITERATIONS 


001001 






TST8 


ICNT*1 


-FIRST ONE? 








BEO 


2$ 


•8WVICH IF f JRST 


016012 


001001 




c«pe 


TIMES, ICNT^l 


;OONE? 








BGT 


.KIT 


;6RANCN IF NOT 


000001 


001001 


2$: 


M0V8 


#1.ICNT*1 


;FIRSr ITERATION 


001000 




.SVLAD: 


INC6 


ICNT 


rCOlMT TEST NlfCERS 


001010 






MOV 


(6). LAD 


;SAVE LOOP ADDRESS 


001000 


1 77S70 




MOV 


ICNT.atDISPLAY 


;DISPLAY TEST NO. /MD ITERATION COIMT 








RTI 




; RE TURN 


001001 




.KIT: 


INC6 


ICNT*1 


;INC THE ITERATION COIMT 


001000 


177570 


.OVER: 


nov 


ICNT,«IDISPLAY 


;SET {p DISPLAY 


001010 






TST 


LAD 


;FIRST ONE? 








BEO 


.SVLAD 


;VES 


0010^0 






MOV 


LAD. (6; 


;FUD(% RETIMN ADDRESS 








RTI 




;MxfS PS 



C16012 0000C1 



•IME-^: 1 



;Rjy< 1 TIMES 
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2126 










212^ 










?528 




















233C 










2331 










2332 










23^3 










233^ 


0160K 


005237 


001002 




2335 


016020 


032757 


020000 


177570 


2336 


016026 


001025 






2337 


016050 


104402 


0''6054 




2358 


016040 


011637 


001012 
00000^ 




2339 


016044 


162737 


001012 


2540 


016052 


1 1 7737 


^62734 


0^6134 


23<.1 


016060 


013746 


001012 




2542 


016064 


104404 






2543 


016066 


104402 


016072 




2344 


016076 


004737 


014122 




2545 


016102 


005737 


1 77570 




2546 


016106 


100001 






2347 


016110 


000000 






2548 


016112 


032737 


001000 


V7570 


2549 


016120 


001003 






2350 


016122 


105037 


0010C1 




2351 


016126 


000002 






2352 


0^6130 


000137 


015764 




2553 










2354 


016134 


000000 
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SEQ 0072 



.-THIS ROUTINE PRINTS OUT ERROR MESSAGES STARTING WITH THE 
.ADDRESS OF THE "HU". IT ALSO COUNTS THE NUMBER OF ERRORS 
.AND HAS THE CAPABILITY OF LOOPING ON ERROR. BELL ON ERROR. 
;"MALT" ON ERROR. AND INHIBIT TYPEOUTS. AN OPTIONAL ARGLMENT 
.•(HLT+3) WILL BE PLACED IN ".HLTCT:" FOR ADITIONAL TYPEOUTS. 



.HLT; 



?$: 



3»: 



INC 

BIT 

BNE 

TYPE 

MOV 

sue 

M0V8 

MOV 

TYPED 

TYPE 

JSR 

TST 

BPL 

HALT 

BIT 

BNE 

CLRB 

RTI 

J«P 



ERRORS 

'rswi3.a#swR 

2$ 
..♦2 

(6),HLTADR 
#2. HLT ADR 
aHLT ADR.. HLTCT 
HL TADR.-(6) 

,.*2 

PCRSRCG 

a«SUR 

.♦4 

4rSW9,a«SWR 
3S 

ICNTO 
.KIT 



.MlTCT: 0 



INC THE ERROR 
SKIP TYPEOUT IF SET 
SKIP TYPEOUTS 
.ASCJZ <15><12> 

PUT ADDRESS OF INSTRUCTION ON STACK 

FUDGE ADDRESS 

GET HLT ARGUEMENT 

PUT HLTADR ON STACK 

TYDE STACK IN OCTAL 

.ASCIZ " " 

GO TO USER ERROR ROUTINE 
HALT ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 

CHECK FOR INHJ8IT LOOP ON ERROR 
SKIP IF LOOP ON ERROR 
CLEAR ITERATION C(XMT 
RETURN 

LOOP ON TEST IWTIL NO ERRORS 
;HLT ARGlMENT 
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■Dice 








■Die*. 








■Die? 








Dies 








<:3!)V 








c jOU 








£ JO 1 


U 1 0 1 30 


ni 5777 


1 7ni m 




U lO l**** 


CSTsTM. 1 1 




cxi 


m XI /.A 
U 1 O 1 HO 


1 1 5717 


UVvw I 




ni <»i Qz. 


nncn77 




STAC 


ni Ai "lA 

U 1 0 1 jO 


ni 


OXAA 


m Ai 

U 1 0 1 Oc 


1 1 5777 


1 7777? 
\ f f ' f c 


CJOf 


ni Ai 7n 






OXfJl 
CjOO 


r>i Ai 70 
u lo 1 'y 


U 1 v'»'«0 






ni Ai 75 

U 1 0 1 f c 


nin'iz.A 

\J 1 U J*»0 




c jf U 


ni Ai 7/. 

U lO 1 f 


ni AAO*; 

U 1 OOv5 


iToonin 


C J' 1 




m 57nA 


m A7?A 

U 1 O JcO 


C Jf c 




incoi A 




'^X7X 


U lOcUO 


nnoz.1 1 




CJf* 




incnii. 






V/ lOc • c 




Ann inn 

\J\J\J 1 WW 


CJfO 


U lOccU 


noiooA 




C jr f 




vUO 1 VJ 






U lOctH 


IftAI 1^ 






ni A? PA 


wo 1 \JJ 








1fW\1 1A 




^ JO 1 


U 1 Oc 


niVvin^ 

UUO I \JJ 






01623* 


1(V>1 1^ 






U 1 Oc JO 


in*;7i^ 




'>XSU^ 


ni APz.n 


vU 1 HUc 




c jOj 


ni 


io*;?77 


V 1 O JC 


t JOO 


ni 

V 1 OcHO 


1 0S 777 


W 1 0 JCM 




01 

\j lOc Jc 


oni^n? 

\AJ 1 H\JC 




c jOO 


U 1 Oc 


1 •»?7?^ 






U 1 OcOU 


10SP77 

1 \JJCJi 


01 MPS 




ni APAZ. 

U 1 OcOh 
U 1 OcOO 


001 7«;i 






o?P7n^ 

\JCC f V/** 


\J 1 ojco 


2392 


01 A? 7? 

V 1 Oc ' c 


vV/ ' vVc 






\j 1 Oc ' *« 


1 1 ?7?A 




?594 


016300 


1050K 




2395 


016302 


104402 


016326 


2396 


016306 


012605 




2397 


016310 


012604 




2398 


016512 


016666 


000002 


2399 


016320 


012616 




2«00 


016322 


000002 










2^02 


0*6324 


000012 





TEST 
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SOCTAL - OCTAL TYPEOUT ROUTINE 



.THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON THE TTY. IT WILL TYPE 

;ALL 6 CHARACTERS. SUPPRESS LEADING ZEROES, OR TYPE THE 

;16 BITS. IT IS CALLED VIA THE TYPOCT, TYPSIT. OR TVPOCS MACRO'S. 

.TYPES: 

.TYPED: 

.TYPES: 

.PTIT: 



.PRL 



.PRF; 



.PR: 



MOV 


#170101 PR 


SET BIT FLAG AND 16. CHARACTER COUNT 


BR 


.PTIT 


NOW TYPE IT IN BIT FORM 


MOVB 


#1,.PR 


SET ZERO FILL SWITCH 


BR 


. +6 ; 


SKIP 


CLR 


.PR 


SUPRESS LEADING ZERO'S 


MOVB 


#-6 .PR4^1 


SET COUNT 


MOV 


R4.-(6) 


PUSH R4 ON STACK 


MOV 


R5,-(6) 


PUSH R5 ON STACK 


MOV 


10(6).R5 


GET THE DATA 


MOV 


*.PR*2.R4 


SET POINTER TO FIRST ASCII CHAR. 


CLRB 


(4> 


CLEAR FIRST BYTE 


BR 


.PRF 


ROTATE FIRST BIT 


CLRB 


(4) 


-CLEAR BYTE OF CHARACTER 


BIT 


*100..PR 


■BIT TYPING MODE? 


BNE 


.PRF 


■YES - SKIP 2 ROTATES 


ROL 


R5 


■ROTATE BIT INTO C 


ROLB 


(A) 


■PACK IT 


ROL 


R5 


■ROTATE BIT INTO C 


ROLB 


<A) 


;PACK IT 


ROL 


R5 


■ ROTATE BIT IN^C C 


ROLB 


(4) 


;PACK IT 


TST8 


(4) 


;IS IT ZERO? 


BEO 


. ^6 


;SKIP INC 


INCB 


.PR 


;SET FILL SWITCH 


TST8 


.PR 


; CHECK FJLL SWITCH 


BEO 


.♦6 


.•SKIP BITStT 


BIS8 


#'0.<4)* 


.-MAKE INTO ASCII CHAR 


INCB 


.P«*l 


;INC COIMT 


BNE 


.PRL 


.REPEAT 


CMP 


#.PR*2.R4 


;EMPTY BUFFER? 


BNE 


,♦6 


.SKIP IF NOT 


M0V8 


#'0.{4>* 


.LOAD 1 ZERO 


CLRB 


(4) 


.NULL TEfWlNATOfi 


TYPE 


..PR*2 


.TYPE IT 


MOV 


(6)*.R5 


;PQP STACK INTO R5 


MOV 


(6)*.R4 


;PQP STACK INTO R4 


MOV 


2(6). 4(6) 


;GET RID OF 


MOV 


t6)».(6) 


.'DATA WORD 


rt; 




.RETURN 


.BLKW 


V 


.COiWT. SWITCH. AND OUTPUT BUFFER 
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SEO 0074 



2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2458 

2439 

2440 

2441 

2442 



016550 
016356 
016364 
016366 
016370 
016372 
016374 
016376 
016400 
016404 
016412 

016414 
016420 
016422 
016424 
016426 
016430 
016432 
016434 
016436 
016440 
016442 
016450 
016456 
016472 

016476 
016500 

01650? 
016504 



012777 
012777 
010046 
010146 
010246 
010346 
010446 
010546 
010637 
012777 
000000 

013706 
005001 
005201 
001376 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
0^2737 
104402 
000137 

000000 
000776 

000000 
000024 
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tPOWER - POWER DOWN AND UP ROUTINES 



THIS IS THE POWER FAIL ROUTINE WHICH WILL SAVE ALL 
THE GENERAL REGISTERS AND USER DEFINED REGISTERS THEN 
WAIT FOR POWER TO GO DOWN AND BE RESTORED. 
IF THERE ISN'T ENOUGH TIME FOR SAVING ALL THE REGISTERS, 
THE PROGRAM WILL HALT AT MLLUP*. 



016476 000126 
000340 000122 



016502 

016414 0000/2 



016502 



016350 000024 
000340 000026 
016462 
007146 



000026 



.POWER: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 

.PJWUP: MOV 
CLR 

1J: INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
JMP 

.I.LUP: HALT 
BR 

.SAVR6: 0 
.PUVEC: 24,2c 



#.lLLUP,a.PUVEC 

*340.a.PUVECS*2 

R0.-(6) 

R1,-(6) 

R2.-(6) 

R3,-(6) 

R4.-(6) 

R5,-(6) 

SP,.SAVR6 

#.P0WUP,a.PUVEC 



.SAVR6.SP 

R1 

R1 

1$ 

(6)*.RS 
(6)».R4 
(6)*,R3 
(6)*.R2 
(6)+,R1 
<6)*,R0 
#. POWER -d#24 
4r340,a#26 



,.*2 
TIMiJP 



.-2 



SET FOR FAST UP 
PRI0:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 



PUSH 
PUSH 



ON STACK 
ON STACK 



PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE SP 
SET UP VECTOR 
WAIT FOR PF 

GET SP 

WAIT LOOP FOR THE TTV 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

SET yp THE POICR DOWN VECTOR 

PRI0:7 

.ASCIZ <15><12>'POWER" 
JMP TO USER ADDRESS 

THE POWER IF SEQUENCE WAS STARTED 
BEFORE THE POWER OOhN WAS COMPLETE 

PUT THE SP HERE 
POWER UP VECTOR 
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CERSBC.P11 K.-AUG-78 08:29 STYPEA - 18 BIT ADDRESS TYPER SEO 0075 



24A3 










.S8TTL 


JTYPEA - 18 BIT 


ADDRESS TYPER 


24A4 
















2445 










.-THIS ROUTINE 


TAKES 2 ARGUMENTS 


OFF THE STACK (OLD 


2446 










;SP AND ADDRESS) AND. USING THE MEMORY MANAGEMENT REGISTERS, TYPES 


2447 










;THE ADDRESS SUPPLIED IN 18 BIT 
;VIA THE 'TYPADR* MACRO. 


FORM. THIS ROUTINE IS LINKED 


2448 












2449 
















2450 


016510 








. TYPfA: 






2451 


016510 


010446 






MOV 


R4.-(6) 


■PUSH R4 ON STACK 


2452 


016512 


010546 






MOV 


R5.-(6) 


•PUSH R5 ON STACK 


2453 


0165U 


016605 


000012 




MOV 


12(6) .R5 


;R5 - OLD PS WITH PREVIOUS MODE 


2454 


016520 


016604 


000010 




MOV 


10(6) ,R4 


;R4 - ADDRESS TO BE DECODED AND TYPED 


2455 


016524 


016666 


000006 


0000^0 


MOV 


6(6). 10(6) 


.•MOVE 


2456 


016532 


016666 


000004 


000006 


MOV 


4(6) .6(6) 


;DOUN 


2457 


016540 


016666 


000002 


000004 


MOV 


2(6). 4(6) 


.•FOUR 


2458 


016546 


012616 






MOV 


(6)*. (6) 


.-WORDS 


2459 


016550 


010346 






MOV 


R3.-(6) 


.-PUSH R3 ON STACK 


2460 


016552 


000305 






SWAB 


R5 


;GET THE 


2461 


016554 


006005 






ROR 


R5 


;2 PREVIOUS 


2462 


016556 


006005 






ROR 


R5 


;MODE BITS 


2463 


016560 


006005 






ROR 


R5 


;INTO POSITION 


2464 


016562 


042705 


1 iniy 




BIC 


#177771 .R5 


.-TO USE AS AN OFFSET 


2465 


016566 


016505 






MOV 


.SArA8(5).R5 


.R5 - SPACE ADDRESS FOR m 


2466 


016572 


010403 






MOV 


R4.R3 


;R3 - REGISTER OFFSET 


2467 


016574 


042704 


160000 




BIC 


#1 60000, R4 


.-CLEAR THE MM REG SELECT BITS 


2468 


016600 


000303 






SUAB 


R3 


:NOU 


2469 


016602 


006003 






ROR 


R3 


;MN REG 


2470 


016604 


006003 






ROR 


R3 


; SELECT 8!TS 


2471 


016606 


006003 






ROR 


R3 


;INrO AN 


2472 


016610 


006003 






ROR 


P3 


.•OFFSET 


2473 


016612 


042703 


177761 




BIC 


#1 77761, R3 


; CLEAR THE JLNC BITS 


2474 


0166.6 


060305 
011505 






ADD 


R3,R5 


.-ADD THE OFFSET TO T^€ TABLE 


2475 


016620 






MOV 


(5),R5 


;GEr THE ISAA DATA 


2476 


016622 


005003 






CLR R3 






2477 


016624 


006305 






ASL 


R5 


;THIS IS 


2478 


016626 


006103 






ROL 


R3 




2479 


016630 


006305 






ASL 


R5 


;T0 SHIFT 


2480 


016632 


006103 






ROL 


R3 




2481 


016634 


006305 






ASL 


R5 


.-THE SEGMENT 


2482 


016636 


006103 






ROL 


R3 




2483 


016640 


006305 






ASL 


R5 


.-ADDRESS 


2484 


016642 


006103 






Ra 


R3 




2485 


016644 


006305 






ASL 


R5 


.AN 18 BIT 


2486 


016646 


006103 






ROL 


R3 


.-ADDRESS 


2487 


016650 


006305 






ASL 


R5 


.•POSITION 


2488 


016652 


006103 






ROL 


R3 


.-WITH R3 CONTAINING 


2489 


016654 


060405 






ADD 


R4.R5 


;THE UPPER 2 BUS 


2490 


016656 


005503 






ADC 


R3 


.-AND RS CONTAINING 


2491 


016660 


006305 






ASL 


R5 


.THE 16 BIT ADDRESS 


2492 


016662 


006103 






ROL 


R3 


.THEN SHJFT FOR TYPING 


2493 


016664 


010346 






MOV 


R3.-(SP) 




2494 


016666 


000241 






CLC 




2495 


016670 


006016 






ROR 


(SP) 




2496 


016672 


000241 






CLC 






2497 


016674 


006016 






ROR 






2498 


016676 


000241 






CLC 
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2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 



016700 
016702 
016704 
016710 
016714 
016722 
016726 
016734 
016736 



006016 
104406 
042703 
110337 
062737 
012704 
012737 
012603 
000137 



177770 
016326 
000060 
016327 
175401 

0162^0 



016526 
016324 
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SEQ 0076 



016742 1 72 34 D 



ROR 

TYPES 

8JC 

liova 

ADD 
MOV 
MOV 
MOV 
JMP 

.SATAB: 172340 



(SP) 

#1 77770. R3 

R3-.PR*2 

*'0,.PR*2 

#.Pfi*3,R4 

*1 75401.. PR 

(6)*,R3 

.PRL 



GET THE FIRST f*JWB£R FROM R3 

MAKE IT INTO A NUMBER 

FUDGE IN THE POINTER 

AND THE FLAGS (FILL t 5 BYTES; 

POP STACK INTO R3 

DECODE AND TYPE THE REST 

;KISAR0 
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2510 

2511 

2512 

2513 

25U 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 
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M 6 

MACY11 30A(1052) 18-AUG-78 
STRAP - TRAP HANDLER 
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08:26 PAGE 64 



THIS ROUTINE DECODES A TRAP CALL AND Jl/IPS TO THE APROPRATE 

SUBROUTINE. THE CALL IS A "TRAP+N" WHERE N IS A MULTIPLE Of 2. 

THE "SET" MACRO WILL CREATE THE TABLE NEEDED. IT HAS TO 
FOLLOW THIS MACRO. 



016744 


011646 




.TRAP: WOV 


(6). -(6) 


GET ADDRESS Of TRAP +2 




016746 


162716 


000002 


sue 


#2,(6) 


MAKE IT ADDRESS OF TRAP 




016752 


017616 


000000 


MOV 


a(6).(6) 


GET TRAP 


INSTRUCTION 




016756 


062716 


112564 


ADD 


♦.TRP*2-TRAP,(6). 


GET DATA AND MAKE JT AN 


OFFSET 


016762 


013607 




.TRP: MOV 


8(6)+. PC 


60 TO PROPER SUBROUTINE 




016764 


01 5642 




.SCOPE 




SCOPE 


= TRAP*0 


(104400) 


016766 


015504 




.TYPE 




TYPE 


: TRAP+2 


(104402) 


016770 


016146 




.TYPEO 




• TYPEO 


: TRAP+4 


(104404) 


016772 


016156 




.TYPES 




■TYPES 


: TRAP+6 


(104406) 


016774 


020556 




.TYPED 




• TYPEO 


: TRAP*10 


(104410) 


016776 


016510 




. TYPEA 




■TYPEA 


= TRAP+12 


(104412) 


017000 


006212 




.ERCLR 




■ERCLR 


: TRAP*14 


(104414) 


017002 


006234 




.DKCMD 




•DKCMD 


: TRAP+16 


(104416) 


017004 


017024 




.RDOCT 




; RDOCT 


: TRAP-»20 


(104420) 


017006 


017142 




.RDL IN 




•RDL IN 


= TRAP+22 


(104422) 


017010 


020524 




.UPDAT 




; UPDAT 


= TRAP*24 


(104424) 


017012 


0003^2 




.CLRr. 




;CLRDV 


: TRAP+26 


(104426) 


017014 


014014 




.LOG* 




;LOGW 


: TRAP*30 


(104430) 


017016 


014024 




.LOGR 




;LOGR 


= T«AP*32 


(104432) 


017020 


014032 




.LOGWC 




; LOGWC 


= TRAP* 34 


(104434) 


017022 


014044 




.L06C 




JLOGC 


TRAP*36 


(104436) 



SEO 0077 



CERSB-C RH70-RS03 DATA AND RELIABILITY TEST 
CERS8C.P11 1A-AUG-78 08:29 



2539 
25A0 
25A1 
25A2 
25A3 
25AA 
25A5 
25A6 
25A7 
2548 
2549 
2550 
2551 
2552 
2553 
255A 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
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01 7024 
017026 
017034 
017036 
017040 
017042 
017044 
0170'.6 
017052 
017054 
017056 
017062 
017064 
017070 
017072 
017074 
017076 
017100 
017102 
017104 
017106 
017110 
017112 
017114 
017120 
017122 
017124 
017126 



011646 
016666 
010146 
010246 
010346 
104422 
005001 
012703 
112302 
001417 
122702 
003022 
122702 
002417 
006002 
006002 
006002 
006101 
006102 
006101 
006102 
006101 
000757 
010166 
012603 
012602 
012601 
000002 



.•THIS ROUTINE CALLS RDLIN. INPUTS A LINE FROM THE TTY AND CONVERTS 
;IT INTO AN OCTAL NIWBER WHICH rS THE FIRST WORD ON THE STACK. 



000004 000002 



01 7246 



.ROOCT: 



4$- 



1$: 



000060 
000067 



000012 



017130 

017130 104402 017134 
017140 000740 



2$: 



3$: 



MOV 

MOV 

MOV 

MOV 

MOV 

RDLIN 

CLR 

MOV 

MOVB 

BEO 

CMPS 

BGT 

CMP8 

BLT 

ROR 

ROR 

ROR 

ROL 

ROL 

ROL 

ROL 

ROL 

BR 

MOV 

MOV 

MOV 

MOV 

RTI 



TYPE 
BR 



(6). -(6) 
4(6). 2(6) 
Rl.-(6) 
R2.-(6) 
R3.-(6) 

R1 

#INPUT.R3 

(3)*,R2 

2$ 

#'0.R2 
3$ 

*'7,R2 

5f 

R2 

R2 

R2 

R1 

R2 

R1 

R2 

R1 

IS 

R1/i2(6) 
(6)».R3 
(6>*,R2 
(6)*.R1 



..♦2 
4S 



MOVE THE PC 

MOVE THE PS 

PUSH R1 ON STACX 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

READ A LINF. INTO INPUT 

INIT DATA WORD 

INIT POINTER 

GET A BYTE 

GET OUT IF ZERO 

CHECK FOR 0 OR GREATER 

ERROR - LESS THAN 0 

CHECK FOR 7 OR LESS 

ERROR - GREATER THAN 7 

GET 

INTO 

POSITION 
FIRST BIT 
GET 

SECOND BIT 
GET 

THIRD BIT 
LOOP 

SAVE THE RESaT 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
RETURN 



;.ASciz 'r•<^5><^^> 

; TRY AGAIN 
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?576 
?577 

2578 

2579 

2580 

2581 

2582 

2583 

258A 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

25914 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 



01 7H2 
017K4 
017150 
017154 
017156 
017162 
017164 
017170 
017174 
017200 
017202 
017202 
017212 
017214 
017220 
017224 
017230 
017232 
017236 
017242 
017244 

017246 
017266 
017326 



010546 




012705 


01 7246 


022705 


017266 


001412 




105737 


177560 


100375 




113715 


1 77562 


142715 


000200 


122715 


000177 


001005 

WW ' WW ^ 




104402 


017206 


000754 


111527 


000000 


104402 


017216 


122725 


000015 


001347 




105065 


M7717 


104402 


000012 


012605 




000002 




C00C20 




000020 




000000 





SEQ 0079 
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SRDLIN - Try INPUT ROUTINE 



THIS ROUTINE INPUTS A LINE TERMINATEC BV A RETURN INTO ADDRESS 
INPUT AND RETURNS A LINE FEED. THE BUFFER HAS A NULL TERMINATOR 
INSTEAD Of THE RETURN. RUBOUTS ARE HANDLED BY RETYPING 
THE LINE. BUFFER OVERFLOW ERRORS LJKE A RUBOUT. 



.RDLIN: MOV 



1$: 
2$: 



MOV 

CMP 

BEQ 

TST8 

8PL 

M0V8 

BJCB 

CMPB 

BNE 

TYPE 
BR 

M0V8 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

RTI 



INPUT: .8LKB 
ERTAB: .8LKW 
OUTBUF: 0 



4$: 



3t: 



R5,-(6) 
#INPUT,R5 
#JNPUT*16.,R5 
4$ 

a*1 77560 

a»1 77562.(5) 
#200.(5) 
#177.(5) 
3$ 

..*2 
IS 

(5) .#0 
.3S*2 
#15.(5)* 
2S 

-1(5) 
.12 

(6) *.R5 



16. 
16. 



SAVE R5 
GET ADDRESS 
BUFFER FULL? 
YES - TYPE 'T' 
WAIT FOR 
A CHARACTER 
GET CHARACTER 
GET RID OF JUNK 
IS IT A RUBOUT 
SKIP IF NOT 

.ASCJ2 'r'<15><12> 
ZAP THE BUFFER AM) LOOP 
SET LP FOR TYPING 
ECHO IT 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
ZAP RETURN (THE 15) 
TYPE A LINE FEED 
RESTORE R5 
RETURN 



.TTY INPUT AREA 
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SEO 0080 



2609 

2610 

2611 

2612 

2613 

26H 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2o43 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 



017330 
017334 
017336 
017342 
017346 
017352 

017354 
017360 
017362 
017370 



017372 
017376 
017400 
01 7404 
017410 
017416 
017420 
017422 
017424 



017426 
017432 
017452 
017456 
017460 



005737 
001415 
012537 
042701 
052701 
000000 

032701 
001403 
062737 
000205 



005737 
001412 
013746 
005037 
062737 
005316 
001373 
005726 
000207 



104402 
104402 
162746 
104404 
000000 



THIS SUBROUTINE HAS THE CALL 
JSR PQ.mjSi 
XXX 

WHERE XXX IS AN EXECUTABLE ONE WORD INSTRUCTION 
MEM nANAGEMENT IS USED ON THE DESTINATION 
THE DtSTINATION FIELD MUST BE (R1)« 
NO OTHER FORM IS ALLOWED 



00102*. 

017352 
160000 
060000 



100000 
000200 



1 72346 



2$: 



TST TEMP2 

BEQ 2t 

MOV (R5)+-1$ 

BIC #160000, R1 

BIS *60000,R1 

.WORD 0 .-CONTAINS INSTRUCTION JUST AFTER 

;TME JSR R5, MMUSE 

BIT #100000. R1 

BEQ 2$ 

ADD #200,KIPAR3 
RTS R5 



.-THIS SETSUP MEM MANAGEMENT FOR A FOLLOWING INSTRUCTION 
.-CALL JSR PCrtMPSET 



001024 

001026 
V2346 
000200 



WPSET; 



172546 IJ: 



2%: 



TST 
BEO 
MOV 
CLR 
ADD 
DEC 
BNE 
TST 
RTS 



000757 
017436 
000002 



TIEOUT: TYPF 
TYPE 
SUB 
TyPEO 
HALT 



.NOTE fOR PROGRAMMER* 



TEMP2 
2% 

TEMP3--(6) 

KIPAR3 

#200.KIPARS 

(6) 

IS 

(6>» 

PC 



.CR^FLF 
#?.-(SP) 



;.ASC17 "TIMEOUT PC=" 



PROGMM AT THIS POINT CAN NOT EXCEED A PC OF 17500' 
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SEO 008' 



2659 




020000 

VC WW 












2661 








2662 








2663 


020000 


012700 

V 1 C ' W 


01 7776 


266A 


020004 

Vt WV^ 


012737 


020024 

V C WC " 


2665 


020012 


012737 


000340 


2666 


020020 

VC WC V 


005720 




2667 


020022 

VC WC w 


000776 

WV ' ' w 




2668 


020024 


022626 




2669 


020026 

wC WC vJ 


012737 


000006 

w WWW 


2670 


020034 


005037 


000006 


2671 


020040 

V/C V 


162700 

1 vie • W 


000^34 

VW J~ 


2672 


020044 


010037 


015166 


2673 


020050 


012702 


000155 

V W \ J .J 


2674 


020054 


012703 


01 7500 


2675 


020060 


012023 




2676 


020062 


005302 




2677 


020064 


001375 




2678 


020066 


000207 




2679 








2680 








2681 








2682 








2683 


020070 


052737 


020000 


268^« 
2685 


020076 


004737 


001620 

W 1 wC v 


020102 


012737 


000002 

w w wt 


2686 


020110 


012737 


000001 


2687 


020116 


012737 


057476 


2688 


020124 


012737 


000001 

www 1 

001 


2689 


0201 32 

vc ' -*c 


005037 

W^ V— / • 


2690 


020136 


012777 


000040 


2691 


020144 


013777 


001164 


2692 








2693 








269<; 








2695 








2696 








2697 
2698 














2699 








2700 


0201 52 


005037 


001026 

WV ■ wcw 


2701 


020156 


012737 


000061 


2702 


020164 


104416 




2703 


020166 


105777 


160640 


2704 


020172 


100375 




2705 


020174 


032777 


004000 


2706 


020202 


001012 




2707 


020204 


005777 


160622 


2708 


020210 


100005 




2709 


020212 


012737 


000006 


2710 


020220 


000137 


020326 


2711 


020224 


104424 




2772 


020226 


000756 




2713 


020230 


005337 


001230 


27K 


020234 


013737 


001230 



000004 
000006 



000004 



001230 
001074 
001144 
001134 

160670 
160662 



.•NOTE 



20000 

ALL THIS CODE GETS DESTROYED WHEN PATTERN IS WRITTEN 



.•ROUTINE TO 



LDR: 



2$: 



S: 



P10V 
MOV 
MOV 
TST 
BR 
CMP 
MOV 
CcR 

sue 

MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
RTS 



SAVE ABS LOADER 
#1 7776. RO 
#2$.4 
#346.6 

(RO)* 
.-2 

(SP)*.(SP)* 
#6.4 

6 

#334, RO 

R0.LDR1 

#1§5.R2 

#17560.R3 

(R0)*,(R3)* 

R2 

IS 

PC 



.-SET TIME OUT TRAP VECTOR 



; -A- PORT SIZE 
001126 SIZZAP: 



XYZ« 



BIS 
JSR 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 



«Bin3,FLAG2 

PC. DRVENO 

#2.WQRK1 

#1.STAMEM 

#57476.eUF 

#1.U«>CT 

DMA 

#40.aRSCS2 

imM,aRscs2 



POINT RO BACK TO LOADER 
SAVE FOR RESTORE ROUTINE 
WORD COIMT 

WHERE LOADER IS TO BE STORED 
STORE LOADER 



.•RETURN 



SET NAPPING BIT 
FIND DRIVE 

START WITH ONE 4K BUFFER 

FIRST 4K BAMC 

GET STARTING ADDR. SK 

LOAD WC 

LOAD DA 

CLEAR ALL RS REG 
GET DRIVE # 



XYZ ************************************************* 

* ************************************************************* 

XYZ** **********?******************************** *********************** 







CLR 


TEMP3 




001 1 76 




MOV 


#61.CMD 


•DO A ERITE 




4$: 


DKCMD 




;NOW 




1$: 


TST8 


aRSCSI 


•DONE YET? 






BPL 


1S 


•NO 


160632 




BIT 


#4000,aRSCS2 


•DID NEM SET? 






BNE 


SIZ1 


vES 






TST 


aRSCSI 


■ANY ERRORS? 






BPL 


3$ 


NO 


001112 




MOV 


#6.SIZEAP 


GET SIZE Of BUFFER 




3$: 


JMP 


a#SIZERR 


•FOR USER IF HE WISHES IT 




UPDAT 




GET NEXT 4K BANK 






BR 


4t 


■TEST BANK 




5IZ1: 


DEC 


WC'-Kl 

WORK\SIZEAP 


DEC SIZE OF BUFFER 


001112 




MOV 


LOAD SIZE OF A BUFFER 
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SfO 0082 



271 S 
2716 
2717 

2718 
2719 
2720 
2721 
2722 
2721 
272** 
272S 



0202A2 013737 001230 001 C22 
020250 1(^CQ2 02025A 
020316 004737 020^64 



HOV WORKI. TEMPI 

TYPE ..*2 ;.ASCIZ «'15><12> 'T>ORT -A- DATA BUFFER 

JSR PC.SIZPR 



4I( TO 
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27^6 
2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2^66 

2767 

2768 

2769 

2770 

2771 

7772 

2771 

277k 

2T7'y 

277 1 

2777 

277Z 

2779 

2780 

2781 



020322 
020326 
020326 
020416 
020424 
020426 
020434 
020442 
020444 
020452 
020460 

020464 
020466 
020472 

020476 
020502 
020506 
020510 
020512 
020514 
020522 



020524 
020530 
020536 
020540 
020544 
020552 



000137 020444 



104402 
012737 

104060 
052737 
042737 
000000 
042737 
052737 
000137 

005001 
012702 
062701 
062702 
020137 
001371 
010246 
104410 
104402 
000207 



005237 
062737 
103005 
005237 
013777 
000002 



020554 020556 



020556 
020564 
020566 
020570 
020572 
020574 
020576 
020604 
020610 
020612 
020614 
020622 
020624 



012737 
010046 
010146 
010246 
010346 
010546 
012757 
016605 
100004 
005405 
112737 
005000 
0r2703 



020332 

000006 001114 

000001 001126 
020000 001126 

020000 001126 

000002 001126 
001462 



000004 
000001 
000004 
001230 



SIZERR: 



NOB: 



Si?PR: 
SIZP: 



020520 



JMP 

TYPE 

MOV 

HLT 

BIS 

SIC 

HALT 

BIC 

BIS 

JMP 

CLR 

MOV 

ADD 

ADD 

CMP 

&NE 

MOV 

TYPED 

TYPE 

RTS 



Noe 



*6.SI7EBP 
.BA.'DS 
#8IT0.FLAG2 
#81T13.FLAG2 

#8IT13.FLAG2 

#8IT1,FLA62 

CALM 

R1 

*4.R2 
#1.R1 
#4.R2 

R1.W0RK1 

SIZP 

ft2.-(6) 

..♦2 
PC 



;6ET OUT NO H9- PORT 

.ASCIZ <15><12>'1JILL NOT CONTINUE 

GIVE PROGRAM A BUFFER 

YOU CAN ENTER CONVERSATION MODE 

BEEN HERE BEFORE FLAG 

CLEAR HAPPING FLAG 

OR GO ro DERSA 

CLEAR HAPPING FLAG 

SET BEEN HERE FLAG 

CAL BUFFER AND UC 



;INIT SETUP 

SETUP FOR BAMC NO 
SETUP FOR SIZE FO MEMORY 
IS THIS THE RIGHT SIZE? 
NO 

PUT R2 ON STACK 

TYPE STACK IN DECIMAL 

.ASCIZ 'V 

RETURN 



SEO 0083 



TO S>IZE MEMORY BECAUS 



001230 

020000 001144 
001026 

001026 1603*0 



AUD 4K TO TEST ADDR 



ml* 



xrZ* 



.UPOAT: INC 
ADD 
6CC 
INC 

nov 

11: RTI 



#20000«auF 
1$ 

TEHP5 

TEPV>3.aRS8AE 



INC BAMC a 

Vl>OArE BY 4K 

WHCH IF NO OVERFlOy 

INCRFMENT FOR RSBAE 



.S8TTL 

100040 021004 .TYPED: 



100040 02^00'. 
000016 



000055 021004 
020774 



.TYPED 



MOV 

nov 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BPl 

NEC 

M0V8 

CLR 

MOV 



.-TYPED = TRAP*40 (104440) 
$TYPEO - CONVERT BINARY TO OECimi AND TYPE ROUTINE 



#100040,. DSIGN 

R0,-f6> 

Rl.-(6) 

R2.-(6) 

R3.-(6) 

R5--(6) 

#l60040..DSIGN 

16(6) .R? 

1$ 

R5 

♦'-..DSIGN 

kC 

#.D8lK.R3 



S€T BLiVtC SWITCH AND SIGN 

PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH RS ON STACK 

SET BL)^ SWITCH AND SIGN 

GET DATA TO BE TYPED 

BR IF INPUT IS POS. 

MAKE THE BINARY NUWER POS. 

MAKE THE ASCII NlfKR NEC. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 
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SEO 0084 



2782 


020630 


I \dfc5 


AA/W A 

0000*»0 


2785 


02065*1 


005002 


A5A7^y 
JcO^D't 


?78A 


020636 


016001 


2785 


0206A2 


1 i A1 AC 

1 601 05 




2786 


02064 1. 


AATy AO 

00<:'»0£ 




2787 


0206*»6 


AAC "iAT 

005202 




2788 


020650 


000/'''» 




2789 


020652 


Ax A1 AC 

060105 




27vO 


02065*. 


AAC7A'5 




2^1 


020656 


AA1 AAl 

001003 




2792 


02U660 


1 AC 777 


r\-j^ AAC 

U<: 1 U J J 


2795 


02066*» 


1 AAy 1 A 
100*» 10 






020666 


IOdjj/^ 




\JC\jtf d 


105003 






0<:U6'*» 


1 1 3f Oj 


051 noz. 




{JcVfvd 


ACD7nD 

VjdfVd 




T "TQQ 


A'5A7AiL 

0«:U/^U6 


\jjdf\)d 


OOOOiO 




OcO' I** 


1 10057 

1 lUccj 










<:oOi 


OcUf lO 


\JC\AJcf 




daUtr 


n'5n755 


UUcf •••• 




^8U5 


\}c\) f d** 








\}d\Jf CO 






">Qr\c 


\JC\Jfji) 






coUo 


VcVf id 


1 n^ni 7 




■DBA? 


r\-)(\7XL 
\jd\J' J** 


ni PAD*; 




OQAB 


\JC\JfJO 


01 5An7 




dckr* 




01 5A05 






A'5A7/,5 


01 5Ani 




col 1 


AOA7AA 
\Jc\Jr **** 


01 PAOfl 






Uc<Jr'*0 


01 AAAA 


VAA/vA/C 


col J 




ni A 

U 1 cC 1 o 




cO • 


0P0756 

\JC\Jf 


104A02 


020774 


2815 


020762 


000002 




2816 






001750 


2817 


02076A 


023420 


2818 


020772 


000012 




2819 


020774 


000004 




2820 


021004 


000000 




2821 








2822 




000001 





■77777 



4S: 



5S: 



6$: 



8S: 



.D8LK: 
.DSIGN: 



M0V8 #' .(R3)* 

CLR R2 

MOV .DT8L(R0).R1 

SUB R1 .R5 

BLT 4$ 

INC R2 

BR 3S 

ADD R1 .R5 

TST R2 

BNE 5$ 

TST8 .DSI6N*1 

8MI 7$ 

ASL8 .DSIGN+1 

BCC 6S 

M0V8 . DSIGN. -1(R3) 

BIS #'0,R2 

BIS »' ,R2 

M0V8 R2.(R3)* 

TST (RO)* 

CMP R0.#10 

BLT 2S 

BGT 8S 

MOV R5.R2 

BR 6S 

CLR8 (R5) 

MOV (6)*.R5 

MOV C6)*.R3 

MOV <6)*.R2 

MOV {6)*.R1 

MOV (6)*.R0 

MOV 2(6). 4 (6) 

MOV (6)*. (6) 

TYPE ..DSLK 
RTI 

10000.. 1000.. 100. JO. 

.BLKW 4 

0 

.END 



SET THE FIRST CHARACTER TO A BLANK 
CLEAR THE BCD NUMBER 
GET THE CONSTANT 
FORM THIS BCD DIGIT 
BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DI6IT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE T*6LE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R? 

POP STACK INTO R1 

POP STACK INTO RO 

FUDGE DATA 

OFF STACK 

NOW TYPE THE NLICER 
RETJM 
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ADAM 


010736 


ADOftR 


0K052 


ADERR 


003574 


ADHGT 


003532 


AORD 


004702 


A0R1 


004716 


ADTL 


003252 


AOTS^ 


003176 


ADT1 


003260 


A0T1A 


003262 


AJCH 


007570 


APORT 


011376 


AS 


000100 


Asuyc 


002512 


Aoei 


001120 


A1 


002322 


BA 


000020 


BEGIN 


001234 


BELL - 


000007 


BITO 


000001 


Bin - 


0000C2 


BITIO = 


002000 


Bini = 


004000 


Bin? - 


010000 


Bin5 = 


020000 


BITK 


040000 


Bins 


100000 


BIT2 - 


000004 


BIT3 


0000 lO 


BITA - 


000020 


BITS 


000040 


BIT6 


000100 


BIT7 


000200 


BUS - 


000400 


BIT9 


001000 


BLOCK 


001160 


BLSZ 


007550 


BUf 


001144 


BUFEXI 


007360 


BL^r^INX 


007444 


BUf SJZ 


006613 


CALM 


001462 


CALMI 


001466 


CHCia)V 


002144 


CHKADT 




CHKDAT 


012502 


CMKDSK 


012752 


CLEAR 


011312 


CLINO 


014020 


CLRDV = 


104426 


C«D 


00n76 


CWDAt 


007352 


CHPIP 


C10544 



1548 
2053 
662 
650 
823 
839 
44 
34 
588 
610# 
1279# 
7C3 
250* 
499 
270M 

38 
248* 

30 
128# 
137# 
158* 
147* 
1484r 
U9# 
150* 
27 
152# 
139# 
140# 
141# 
142* 
143* 
144# 
145# 
146# 

1109 

1969 
324# 

:250 
31&r 

124Q 

1276 
484 
384 
387# 
455 
666 

1856# 

1913* 
801 

2052# 
616 
331/r 

1857. 

1262 

1520/r 



1568# 
2060 
66 7# 
655# 
840# 
842 
595* 
404 
6C5# 
684 
1298 
1653* 
1129 

518# 

37?. 

492* 

639 

353# 

365 

395 

397 

498 

575 

581 

151* 

560 

373 
1197 
1110 

421 

469 

256 

613 

637 
1119 
2162 
1251 
1315* 

623* 
1254 
129«D* 
1160* 

386* 

459* 

672 
1868 
1924 
1006 
2056 

702 

630* 
1914. 
^270 
'521 
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SCO 008S 



844* 
580 

2110 

889* 

787 
1485 

383 
410 
398 
583 
803 
745 
438 
595 
424 
1501 
1200 
443 
757 
441 
681 
651 
1139 

1255* 

707* 
}277» 

2736 
677* 



1625 1627 



920 
645* 
1963* 
1275* 
1566 



583* 1242 2047 



1?86 
I coo 






989 




CI 


1514 


1796 


2184 


388 


391 


2165 


459 


471 


516 


492 


587 


887 


1058 


1140 


2221 


1011 


1631 


1954 


2077 


2683 


2732 


569 


713 


1185 


682 


894 


1044 


445 


452 


586 


1568 


1650 


1977 


16?4 


1733 


1736 


540 


1107 


1151 


824 


947 


975 


1704 


1884 


1942 


770 


913 


1043 


719 


752 


759 


1198 


1258 


1581 


1315* 


1318- 


1520 


748* 


939* 


1092* 



1057 
715* 
1966* 



1629* 

1069 
749* 
2701* 



1837 
812* 



2731 
885 
1143 


2755 
1769 


1797 










2157 
2734 
1187 
1482 
817 
2232 


1864 
1350 


1872 
1629 


1920 
1953 


1930 
2079 


2185 


2243 


1247 
1019 


1730 
1284 


1732 
1572 


2021 








1105 
822 
1845 


1112 
945 
1861 


1195 
973 
1903 


1280 
1016 
1917 


1021 
19?5 


1067 
1931 


1070 
1941 


1322 


1325* 


1324 


1332* 


1599« 


1609* 


1617 


1099 


1961* 


2687* 


^760* 









1855 
942. 



1905 
970* 



1909 
1008' 



2554* 
1109* 



in2» 1113 



1842* 
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SEO 0086 



CMPLP1 

CMPY 

CQMDAR 

COMERR 

CQMPAR 

COM 

CRLFLF 

DA 

DATA 

DATAT 

OATTES 

oe 

DIS8UF 
01SPLA= 
DKCMD - 

DKINT 
DMA 

DONE 

DONEE 

DOUN 

DROP 

DRP 

DRVENO 
DS 

DSKRD 
DT 

DVNLfl 

ELH 

ERCLR = 

ERCOUN 

ERRCL 

ERRORS 

ERRVEC= 

ERTAB 

ESM 

ESHI 

EXGEN 

EXGENT 

EXMFLG 

EXRAX 

EXRXX 

EXTDR 

EXTMEM 

EXTPP 

EXTPPR 

EXTT 

FILBUf 

FILCHR 

FILDAT 

FLAG 



010610 
0032^A 
007256 
0012K 
010<.K 
002220 
0007S7 
000004 

000620 
003660 
002 A 02 
000002 
007204 
1 77570 
104416 

006422 
001140 

013752 
002204 
012624 
001130 
014760 
001620 
000040 
004540 
000240 
001660 
004604 
104414 
001152 
012300 
007002 
000004 
017266 
004474 
004470 
010200 
010336 
003212 
006076 
006110 
0075A6 
011464 
006206 
006154 
011442 
007764 
001014 
007760 
001132 



1517 
496 

1256 
338* 
819 
405 
199i» 
246* 

1971 
V4# 
589 
497 
245* 
641 
127* 
631 

2530* 

1119* 
316* 

1253 

2022 
460 

1840 
274* 

2074 
409* 
249* 
809 
253* 
414 
820 
624 
321* 
370 
209* 
349* 

1804 
802* 
747 

1421 

1472* 
584 
963 

1036 

1283 
386 

1059 
890 

1656 

1365 
213* 

1366* 
313* 
583 
745 
973 



1519 
520 

1258* 

2014 

1013 
476* 
4<.7 
^.39 

2120 
727 
685* 
500* 
787 
678 

1345* 
646 

2702 

1227 
392* 

1261 

2027 
470* 

1878* 
418 

2163 
585 
729 
811* 

2142 
417* 
822* 
644 

1491* 
493 

2334* 
402* 

2030 
893 
801* 

1437* 

586* 
995 
1038* 
1289 
490 
1062* 
1055* 
1661* 
1367* 
2268 
1369 
362* 
586* 
752 
1003* 



1531* 
538 

2034* 
1491* 

673 
653 

765 
883 
505 
989 
740 
2315* 
716 



615* 
1266 
2039* 
1062 
1881 
1810* 
2165* 
2684 
833 
837 



711 
1626* 
1803* 
2354 

403* 
2071* 



1061 
1017 

1312* 
1673* 

2188 



567 



1001 
729 

830 



1029 
799 

2319* 
750 



627 
1277* 



1981 
957 

743 

2606* 



2247 
1035* 



573 
2172 



1716 
787 



1847 
844 

813 



661 
1291 



1129 



811 



579 



2178 
833 



1863 
1247* 

943 



667 
1616 



941 



2222 
957 



1919 
1850 

971 



701* 
1859- 



2650 
989 



1971 
1867 



2018 2174* 2179 



1029 



2135 
1923 



1513 1795 



1847 1863 



1009 1843 



1973 
1858 



1915 



1964 1967 



929« 930* 1055* 1077 1155* 1252* 
1854* 1910* 1955^ 2689* 



1513 1795 2130 2730 



969 1007 25290 



2269 






















397* 


400* 


489* 


492* 


494* 


498* 


540* 


560* 


569* 


575* 


581* 


587 


613* 


637* 


651* 


68'* 


708* 


713 


719 


730* 


731 


739» 


803 


807* 


817 


822 


846 


887 


915* 


931* 


945 


959* 


960 


1016 


1043* 


1058 


1067 


'070* 


1105 


1119* 


1139* 


1151 


1247 


1258 



J 7 

CERS8-C RH7O-RS03 DATA AND RELIABILITY TEST MACrr 30A(1052) 18-AU6-78 08:26 
CERSBC.P11 U-AUG-78 08:29 CROSS REFERENCE TABLE — USER SYMBOLS 



PAGE 75 



SEO 0087 



FLAG2 001126 



FLAG3 

FNDTYP 

GETERR 

HeRADO= 

HINLM 

HINLM1 

HISAV 

HLT = 

HLTAOR 

HRDER 

ICNT 

INC SEC 

I»*njT 

INTEXT 

INTFLG 

KDPARO= 

KDPAR1= 

KDPAR2= 

KDPAR3= 

KDPARA= 

»CDPAR5= 

KDPAR6= 

KDPAR7= 

KDPORO= 

KDPW»1 = 

KDP0R2= 

KDPDR3= 

K0P0R5= 

•kopdr6= 

IC0P0R7- 

KIPARO- 

•CIPAR1 = 

KIPAR2= 

KIPAR3 

KIPARA= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPORO= 

KIP0R1= 

KIP0R2= 

KIP0R5- 

KlP0R4= 

KIP0R5= 

KIPDR6= 

KIP0R7= 

LA 

LAO 



001222 
006740 
013720 
177742 
010206 
010342 
010212 
104000 

001012 
001156 
001000 
007232 
017246 
006512 
001202 
172360 
172362 
172364 
172366 
172370 
172372 
172374 
172376 
172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 
172340 
172342 
172344 
172346 
172350 
172352 
1 72354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000204 
001010 



1^75 
2185 
273# 
516* 
1769* 
2079* 
341# 
507 
1996 
351# 
1376 
1450 
1376* 
123# 
1587 
21 2# 
323# 
20ar 
1252# 
593 
1122 
333# 
113* 

114# 

115# 
116# 
117* 
118« 
119* 
120* 
95* 
96* 
97* 
98* 
99* 
100* 
101* 
102* 
104* 
105* 
106* 
107* 
108* 
109* 
110* 
111* 
86* 
87* 
88* 
89* 
90* 
91* 
92* 
93* 
251* 
211* 



1279" 

363* 
1107 
1797* 
2157 

364 • 
1185* 
2028* 
2224 
1387 
1460 
1441* 

639 
1795 
2338* 

706* 

360* 
1257 
2551 
1140* 
1098* 



1722» 
1724« 
1740* 
1564* 
1744" 
1746* 
1748* 
1757* 
1749* 
1750* 
1751* 
1752* 
1753* 
1754* 
1755* 
1756* 
2152 
361* 



1280 


1284 


1311* 


1350 


1629 


163' 


1845 


1861 


1917 


1953* 


1969 


365 
1110 
1864* 
2221* 

595* 
1836 
2168 


383 
1143 
1869 
2232 

682 


388 
1185^ 
1872* 
2683* 

894* 


391* 
1187* 
1903* 
2731* 
1044 


410* 
1501* 
1920* 
2732* 


424* 
1568* 
1925 
2734* 


438 
1650* 
1927 
2735* 


445 
1730* 
1930* 


452* 
1732* 
1931* 


459 
1733* 
1941* 


471* 
1736* 
1954* 


1471* 

653 
1847 
2339« 

922* 
2308 


1474* 

669 
1863 
2340 
1137 
2310 


1506* 

729 
1919 
2341 
1853* 
2312* 


1529 

787 
1971 
2355 
1904* 
2313* 


833 
2730 

2315 


957 
2318* 


989 
2319 


1029 
2325 


1129 
2350* 


1268 


1513 


2584 


2585 


2605* / 


• 
















1146* 


1515 


1520 


1570 

















1742* 2629* 2642* 2643* 



636- 



718* 



798* 



925* 231 4* 2320 2522 2325 
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LDAT 
LDAT1 
L0AT2 
LDAT 3 
LDR 
LDR1 
LERADD- 
LOADSW 
lOGC - 
LOGR - 

logw 

LOGWC 
LONLW 
L0NLW1 
LOPCNT 
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SEQ 0088 



LOSAV 

MDON 

l»€M 

MEMERR= 

PflABTO 

W1AVA 

IWPSE1 

JflSET 

mjSE 

m/EC - 
m 

MSTR 

MTRAP 

MYBYWR 

N = 

NOB 

NOFND 

NOINT 

NOPORT 

NOREC 

NOUGO 

NOURIT 

NPRCNT 

NPRRET 

NPR1 

Njn 

GPOAR 

OPOSEL 

OPPAT 

OPRD 

OPWCK 

OPWRT 

CXJT 

OUTBUF 

PARCSR= 

PARVEC 

PASEL 



005762 


706 


711* 


718 


732 ' 




003756 


^10# 


741 








005704 


701* 


877 








003676 


700* 








020000 


567 


2665* 


2672* 






015166 


2191 


2199* 






1 77740 


550* 
^67* 


2227 








000561 


1852 


2558* 






104456 


670 


1580 


1263 


2536* 


104452 


652 


832 


1018 


10445C 


658 


721 


951 


?555* 




104454 


756 


979 


2557* 


1407* 


1438* 


010?04 


1575 


1386 


1395 


010340 


1449 


1458 


1470* 


1473* 


1505* 


001204 


554* 


710* 


722* 


723 


734 


826 


855* 


836 


841 


940* 




996 


999 


1005* 


1023 


1031* 


010210 


1575* 


1440* 


1505 






012142 


1721 


1762* 








010544 


1559 


1478* 








1 77744 


552* 


2250 








012144 


1759 


1764* 




775 


916 


001216 


559* 


571* 


378* 


01 7572 


1565 


1385 


1500 


1643 


2639* 


011424 


1658* 






1646 




017530 


1366 


1418 


1433 


000250 


259* 


1759* 








000220 


252* 


2147 








004724 


805 


846* 








000541 


163* 


1764 








012416 


1842* 


1851 


610* 


686 


690* 


000005 


122* 


606 


020444 


2726 


2734* 








000730 


195* 


465 


1794 






000510 


157* 


1512 






002510 


479 


490* 


1034 


1179* 




006720 


792 


838 




002210 


455 


469 
1666 
1792* 


471* 






006674 


1172* 


1799* 






012274 


1770* 






012264 


1145 


1797* 








012276 


1771 


1800* 




506 


511 


001174 


550* 


505* 


504 


550 


554* 


555 


558 


561 


002652 


522 


536* 


549 


1151* 




006546 


712 


744 


802 




002760 


559 


551* 


556 






003112 


568 


571* 








003142 


574 


C 77* 

''65* 








005062 


559 








015544 


470 


1977* 




655 


707 


017326 


612* 


623 


625 


957 


939 


13S2* 


1653* 


1660* 


172100 


2201* 


2209 


2204* 






000114 


??02* 


2205* 






007650 


709 


1559* 


1962 







1525 
737* 
949 
1032 



754 
952* 
1035 



761 
964 
1182* 



789* 
968* 
1574 



790 
977 
1667* 



793 
990* 
1714 



796' 
991 
2065 



808* 
994* 



1105 



1591 



1655 



1677 1719 2235 



900 



904* 1051 1055« 



513' 



526* 527 



531 



533 



543* 



546 



548 



748 
1956* 



768 
1961 



871* 
2607* 



873* 



914* 



915 



927 



929 
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PAbEX 
PASSC 
PATNU 

PATO 

PAT1 

PATIO 

PATH 

PAT 12 

PAT 13 

PATH 

PAT 15 

PAT 16 

PAT 17 

PAT2 

PAT20 

PAT3 

PATA 

PATS 

PAT6 

PAT 7 

PCNT 

PFT1 

PFT2 

PFUAT 

PFWATT 

PHAOOR 

PHYCOV 

POWFAL 

PRIORI 

PRNT 

PS 

PSW = 

PTDONE 

PURDN 

PVJRFL 

PVJRFL2 

PWRF1 

PWRUP 

00 = 

RAND 

RANOM 

RANDOn 

RAND1 

RANEL 

RANEX 

RDERR 

RDLIN = 

RDOCT - 

RDSECT 

RE ADC T 

READER 

RECOV 

RES TOR 

RETT 



00777A 
001162 
001 K2 

000300 
000302 
000320 
000322 
00032A 
000326 
000330 
000332 
00033A 
000336 
00030A 
0003A0 
000306 
000310 
000312 
0003K 
000316 
001004 
012334 
012670 
012376 
012370 
001124 
006762 
013152 
00107; 
OKllt 

177776 
177776 
014706 
013102 
012732 
012722 
012730 
013112 
000001 
010232 
000670 
010010 
010030 
005130 
005136 
000657 
: 104422 
- 104420 
003470 
005124 
001212 
000702 
010214 
015140 



1 X?C\M 


U37 




921 * 




393* 


1 ^71 






135? 






OS* 




ft5« 








67' 




DO* 








f 












1 c* 




















ft3# 






1808* 


51 


1830# 


53 


1901' 




1852 


1837# 


1873 




1660 


777 

iff 


1191' 


1838 


1907 


C. ^yj^ 


1228 


f»71 


725 




1711 




125 




2140 


PI 36 


1911 

17 11 


1935' 


1908 


1910' 


1907# 


1932 


1904 


1909' 


1935 


1938' 




686' 


1449# 


1524 


187' 


955 


928 


938 




1436 


A8 


894' 


891 


896' 


184' 


831 


592 


2532' 


477 


482 


644' 




845 


893' 


337' 


2006 


190' 


998 


401 


1443' 


2158 


2166 



1039* 
557* 
1952* 
1354 



1737* 

1952' 
1856 

763 
2072 
369* 

2153 
1938 
1926 

1944 

900' 

982 
1349 



1046 
1028 
2549 
485 



2032* 
1713 

2173 



561* 
2187* 
1532 



563* 



880* 881 



884* 



919* 1042* 1541 



SEQ 0089 
1507 1518 



1809* 2024 2040* 2041* 2049 2160 



1859 
773 

2077' 
610* 

2157' 



1051' 

1027 
1375' 



2004 
502 



1913 
828 

1228* 



953 
1593 



980 
1856* 



1025 
1859* 



1179 
1913* 



1269 
2237 



1584 



1588 1618 



525 



543 



>53 2531' 



2169* 2170 
2189' 
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SEQ 0090 



RLDR 

RORBL< 

RROSEC 

RREAO 

RRR2 

RSAS 

RSBA 

RSBAE 

RSCS1 

RbCS2 
RSCS3 
RSDA 

Rsoe 

RSDS 

RSDT 

RSER 

RSLA 

RSMR 

RSREG 

RSVEC 

RSUC 

RSO«.DT 

RU 

RURED 

SANHT 

SAVAST 

SAVCPU 

SAVE 

SAVMGA 

SAV!1GB 

SAVMGC 

SAVWC 

SAVWCB 

SCOPE = 

SEABUF 

SEEC 

SETIND 

SHIFT 

SHIFT! 

SIZEAP 

SIZEBP 

SI2ERR 

SIZP 

SIZPR 

SIZZAP 

SIZZBP 

SIZl 

SLH 

SLH2 

SLH2A 

SRO 

SRI 

SR2 



015U2 
007620 
003A66 
0057A0 
011566 
001050 
001 OAO 
001062 
001032 

00105^ 
001064 
001042 
001 054 
001044 
001060 
001046 
001052 
001056 
014122 
001066 
001036 
001172 
000006 
005774 
003556 
001076 
001102 
001154 

001104 
001106 
001110 
001220 
001224 
104400 

003370 
014570 
014036 
010046 
010250 
001112 
001114 
020326 
020472 
020464 
020070 
020322 
020230 
004144 
004146 
004534 
177572 
177574 
177576 



41 
1321 
64 3# 
1007# 
1192 
234# 
230# 
239# 
22 7# 
2707 
76* 
240* 
231# 
236* 
232* 
238# 
233# 
235* 
237* 
2079* 
241* 
229* 
329* 
257* 
922 
659 
261* 
263* 
322* 
1594 
264* 
265* 
266* 
340* 
342* 
609 
958 
624* 
2109 
2059* 
1390* 
1453* 
267* 
268* 
2710 
2740* 
2725 
385 
2726* 
2706 
714 
743* 
800 
fil* 

. ^* 

OJ* 



2191* 






1325* 






A79 










1691 




1680 


L^ 7 


1136* 


1848* 




984 


1099* 




1094* 


2105 




634 


647 


77* 


228* 


411* 


?102 




1267 




1261 


?i ?a 




1884 




1127 

lit' 


4P9 


431 


433 


412* 


1849* 


1865* 








2150 






2344 






^?27* 






785 


1102* 


2128 


428* 


437* 


544 


1749 


1750 


1751 


1014 


1016* 




661* 


665 




1653 


1654 


1681* 


614* 


680 


1503* 


1597 


1723* 


1738 


1657 


1685* 




390* 


529 


1443 


640 


643 


654 


967 


1002 


1004 


636 


642 




2141* 






2063 






1394 






1457 






1686 


2709* 


2714* 


486* 


487 


2729* 


2727/f 






27i,3 






2738* 






2683* 






2713* 






7k2» 




810 


791 


798 


810* 




1761* 


377* 


918* 



1698* 
1866* 
1220 
2763* 
649 

415* 

2123 

1942 
435 
1921* 



619 
1752 



1543* 
2238 



1922* 
2118 

1113* 

427* 



2133 
2145 
2094 



656 
1753 



1544* 

?241 



2113 

1120 
1883* 



1123 1195 
1940* 2098 



1198 
2690* 



1576 2090 2703 
2691* 2705 



933 
1754 



1308 
1755 



1316 
1756 



1329 



1603 1611 



1545* 1549* 1560 1562* 1563* 1578* 1579 



677 689 738 742 797 806 
1030 1038 1054 2039 2523* 



834 840 903 
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SEQ 0091 



SR5 = 

STABUF 

STAMEM 

STATUS 

STBCOn 

STm? 

STTEST 

SWITCH 

SWR 



172516 
006566 
001074 
001070 
001100 
011650 
001752 
001200 
177570 



SUROCT 00^150 



SUO 
SU1 
SWIO 

sun 

SW12 

SW13 

SW14 

SU15 

SU2 

SW3 

SW4 

SW5 

SU6 

SW7 

sy8 

SU9 

TAi 

TACjI 

TDMA 

TEMPI 

TEMP2 



000001 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
004604 
005774 
001146 
001022 
001024 



TEMP3 001026 



TEMP4 

TIEOUT 

TIMES 

TIMUP 

TP8 

TPS 

TRACK 

TRUERR 

TRY 

TRVNX 

TST1 

T5T2 

TST3 

TST4 

TYPE : 



001030 
01 7426 
016012 
007146 
001020 
001016 
001136 
006504 
001640 
002130 
003260 
003660 
005136 
006152 
104402 



84# 
476 
260* 
255# 
262* 
1658 
422 
332* 
126* 
947 
2021 
320* 
1444 
22* 
21* 
12* 
11* 
10* 
9* 
8* 
7* 
20* 
19* 
18* 
17* 
16* 
15* 
14* 
13* 
816 
1012 
319* 
217* 
218* 
1831* 
219* 
2763 
220* 
402 
2310 
1235* 
215* 
214* 
315* 
1126 
412* 
426 
609* 
689* 
903* 
1054* 
423 
541 
830 
1272 
^871 



1760* 
48C 
478* 
705* 
483* 

1719* 
425* 

1504* 
127 
975 

2077 
390 

1693* 



2042 
2306 
2042 
2335 
2295 



2295 

2348 
818 

1015* 
550* 
865 
611* 

1902* 
699* 

1090* 

2650* 

2325* 

2436 

2269* 

2270 

1128 
416 
436 



447 
552 
831 
1479 
1929 



1155* 
699 
924* 



457 
1522 

373 
1011 
2162 

394 
1958* 



2334 



1201 



1526* 
395 

1019 

2165 
401 

1959 



1673 1688 2686* 



1528* 
398 
1021 
2243 
533* 



821* 






1153 
868 
698* 

2620 
864* 


2723* 
912* 

2639 
865 


1056* 
867* 


1091* 


1092 




2274* 
2275 






1139* 






442 


454* 


1060 


451 
566 
955 
1512 
1975 


465 
572 
956 
1586 
1993 


476 
578 
982 
"=90 
1998 



421 
1140 
2295 

534 



443 
1482 
2306 

614 



757 
1572 
2335 

618* 



1086 
868 



1209 
870* 



1364 
872 



480 
591 
983 
1620 
1999 



481 
673 
986 
1623 
2000 



484 
727 
993 
1666 
2003 



759 
1581 
2345 

622* 



770 
1624 
2348 

680* 



1416 
1088 



1431 
1211 



495 
728 
998 

1713 
2004 



501 
765 
1001 
1716 
2005 



815 
1704 

700 



1541 
2641 



519 
766 
1027 
1764 
2008 



824 
1835 

1282 



885 

1977 

1443* 



15S8 1644 
2700* 2762* 



524 
780 
1028 
1794 
2009 



537 
784 
1181 
1832 
2010 
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2013 


2016 


2023 


2026 


2082 






2112 


2117 


2122 


2127 


2132 






???0 

CCCv 


r C C C 


2223 

C C C --z 


2226 


2229 






2597 


2601 


2650 


2651 


2724 


TYPEA = 


10^412 


1595 


2239 


2528* 






TYPfD = 








2766* 










783 


786 


988 


2084 


2087 








2134 


2139 


2146 


2151 






450 


464 


ICO 


1274 


1598 




2161 


2177 


2242 


2500 


2526* 


TYPREC 


011622 


736 


'95 


843 


966 


1037 




001170 


3284r 


419* 


425 


454* 


461* 


UNITSV 


001166 


327'> 


417* 


418* 


425 


515* 


UNNlffI 


001 16A 


77 


526* 

2176 


420* 


427 


449 






2167 


2691 






UNRECO 


006651 


993 


1167* 


1181 






UNTYP 


001762 


427* 


1 186 






1752 


UP = 


000000 

WWW 


25&r 


1749 


1750 


1751 


UPCHK 


012A66 


1853* 


1886 








UPOAT = 




2533* 


2711 








UPP 


01263A 


1878 


1881* 








VAOOR 


001122 


?71# 


915* 


1347 


1503 


1641 


VECTRR 


007130 


704 


923 


1227* 


1834 


1906 


UATT 


011600 


717 


751 


814 


944 


972 


WC = 


000010 


2474r 


639 


653 


1513 


1795 


UCCON 


002550 


521 


523* 


528 


532 


2171 


UCERR 


(X)12(0 


336* 


2011 


2033* 


2170* 


yCKERR 


000642 


180* 


766 


983 


2009 






001116 


269* 


1288 








yDERR 


010746 


1546 


1570* 








WORK 


001226 


346* 


778* 


782 


926* 


936* 






1368* 


1420* 


1435* 


1509* 


1510* 


W0RK1 


001 230 


347* 


1201* 


1211* 


1212 


1220* 






1616* 


161 7* 


1621 


2685* 


2713* 


W0RK2 


001232 


348* 


1290* 


1292* 


1299 
1567 


1502* 


URDCMP 


010620 


1527 


1530 


1541* 


1571 


URDCT 


001134 


314* 


394* 


491* 


534* 


617* 






1282* 


1288* 
1628 


1307* 


1310* 


1319 


URDINC 


010650 


1547* 








WROfNU 


01 3246 


1963* 


1974 








JRERR 


005356 


925 


941* 


961 






WRITER 


001206 


335* 


2001 


2031* 


2169 




URLG1 


005236 


925* 


1041 








URNEXB 


0034 56 


635 


640* 








URRCK 


005516 


969* 


992 








URRCK1 


005476 


946 


964* 








URTERR 


000630 


177* 


723 


956 


1909 




igRXBL 


004110 


720 


734* 








URX1 


004122 


735 


737* 








WTNO 


011444 


733 


962 


1664* 






XESH 


004212 


752* 










XINCSE 


007454 


1292* 


1297 








XINCSU 


007500 


1294 


1299* 








XSfABU 


003402 


627* 

'706 


629 








XUAIT 


012154 


1769* 








YORN 


000763 


201* 


591 
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2085 


2089 


2093 


2097 


2100 


2101 


2104 


2107 


2137 


2144 


2149 


2154 


2159 


2164 


2175 


2178 


2234 


2337 


2343 


2395 


2435 


2524* 


2574 


2594 


2728 




2814 












2091 


2095 


2099 


2103 


2106 


2114 


2119 


2124 


2156 


2225 


2228 


2231 


2342 


2525* 


2653 




1622 


1715 


1995 


2002 


2007 


2012 


2015 


2025 


1711* 
















2174 
















1981* 


1982 


2018* 


2180 






1940 




456* 


462* 


463 


506* 


1835* 


1883 


2067 


1 f^5 


1/54 




1 fJb 










1654* 


1659* 


1957* 












1010 


1704* 


1844 


1860 


1916 


1965 


1968 




2125 
















no/ ^ 


To5* 




1235* 








1 >tO 


1982* 


1984 














1221* 


1222* 


1223* 


1224 


1236* 


1238* 


1251* 


1296 


2714 


2723 


27*>2 


2759* 










1547* 


1602 














621* 


626 


700* 


857 


932* 


935* 


936 


1100 


1346 


1444* 


1502 


1600 


1642 


1959* 


2688* 





CERSB-C RH70-RS03 DAT»v AND RELIABILITY TEST MACYTI 30A(1052) 
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lENOAD 


01 3776 


25 


2045* 








SEND! 


0H006 


2043 


2047* 










021006 


23* 


24* 


26* 


29* 


32* 






206* 


423 


481 


482* 


495 






552 


566 


572 


573* 


578 






986 


1045 


1141 


1272 


1273* 






1871 


1872* 


1929 


1930* 


1975 






2005 


2006* 


2008 


2009* 


2010 






2082 


2083* 


2085 


2086* 


2089 






2''12 


2113* 


2117 


2118* 


2122 






2145* 


2149 


2150* 


2154 


2155* 






2226 


2227M 


2229 


2230* 


2234 






2346 


2354 


2355 


2364 


2384 






2605* 


2606* 


2651 


2659* 


2667 


.CLROV 


0O0J<.2 


76* 


2534 








-DBLK 


02077A 


2781 


2814 


2819* 






.WCCMD 


00623A 


1077* 


2530 








•DSIGN 


021 00<. 


2769* 


2775* 


2779* 


2792 


2794* 


.DTBL 


020764 


2784 


2817* 








.ERCLR 


006212 


1067* 


2529 








-HLT 


0(6014 


356 


2334* 








.HLTCT 


016134 


2080 
2354* 


2108 


2110 


2115 


2120 


.ILLUP 


0^6476 


2411 


2438* 








.KIT 


015764 


2296 


2305 


2311 


2318* 


2552 


.LOGC 


014044 


2062* 


2538 








.L(X/< 


014024 


2055* 


2536 








.LOGW 


014014 


2051* 


2535 








.LOGWC 


014052 


2058* 


2537 










015170 


387 


2203* 








.OVER 


015770 


2319* 










.PARSR 


015262 


2203 


2219* 








.POyER 


016350 


354 


2411* 


2433 






.POUUP 


016414 


2420 


2423* 








.PR 


016324 


2361^ 
2503* 


2363* 
2504 


2365* 
2505* 


2366* 


2571 


.PRF 


016232 


2373 


2376 


2381* 






.PRL 


016210 


2374* 


2390 


2507 






.PTIT 


016170 


2362 


2367* 








.PUVEC 


016504 


2411* 


2412* 


2420* 


2442* 




.00. - 


000042 


2510* 


2523 


2^2UH 


2525* 


2526* 






2535* 


2536* 


2S370 


2538* 


2559* 


.RDLIN 


017142 


2532 


2583* 








.RDOCT 


017024 


2531 


2544* 








.SATAB 


016742 


2465 


2509* 








.SAVR6 


016502 


2419* 


2423 


2441* 






.SCOPE 


015642 


2295* 


2523 








•SVLAD 


015744 


2302 


2307 


2313* 


2321 




.SUDPT= 


121000 


1* 

2348 


7 


8 


9 


'0 


.TBIT 


014012 


2049* 










.TRAP 


016744 


358 


2517* 








.TRP 


016762 


2520 


2521* 








.TYPE 


015504 


2258* 


2524 








.TYPE A 


016510 


2450* 


2528 








.TrPEB 


016136 


2361* 
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40* 


43* 


47* 


50* 


52* 


15'.* 


204* 


501 


50^* 


51<' 


520* 


524 


525* 


537 


541 


579* 


633 


648 


683 


780 


784 


785* 


882 




1 580 




1 COi M 
1 3VI* 


1620 


1621* 






1976* 


1993 


1998 


1999* 


2000 


2001* 


2003 


2004* 


2011* 


2013 


2016 


2017* 


2023 


2026 


20270 


2049 


2093 


2094* 


2097 


2100 


2101* 


2104 


2107 


2108* 




c\df 


cicoM 




CIJJ0 




d\ys0 




2159 


2164 


2165* 


2V5 


2220 


222U 


2223 


222^*0 


2235* 


227' 


2276 


2325 


2337 


2338* 


2343 


2344* 


2387 


2392 


2402* 


2435 


2439 


2574 


2588 


2594 


2724 


2728 


2746 


2819* 










2796 


2^200 














2125 


2150 


2135 


2141* 


2142 


2^^7 


2152 


2340* 


2375 


2385* 


2586 


2389* 


2391 


2395 


2402* 


2502* 


2527* 


2528* 


2529* 


2530» 


2551# 


2532# 


2555t 


2534# 


2766 


27670 














V 


12 


15 


14 


20*,2 


2295 


2554 


2555 
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CERSBC, 



Tv^lD 020556 

TYPED 016U6 

TYPES 016156 

UPDAT 020524 



SEO 0094 



2527 
2363# 
2565# 
2533 



2766 
2525 
2526 
2759# 



2769# 
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SEO 0095 



END 

LDPOR 

NEWTST 

ooni 

00T11X 

POP 

PRINT 



PUSH 

SCOPE. 

SET 

TYPADR 
TYPBIT 
TYPCHR 
TYPOEC 
TYPLIN 
TYPOCS 
TVPOCT 

TYPTXT 



tCATCH 

tCMTAG 

(DONE 

tEQUAT 

JHLT 

fOCTAL 
SPOUER 
$RAND2 
SRANDA 
SRDDEC 
SRDLIN 
SRDOCr 
SSCOPE 
SSET 

tSETUP 

$SWR 

tSUDOC 

STRAP 

STYPE 

STVPEA 

STYPED 

SUWR 



1« 

1718* 
1# 
^* 
1# 
1# 
1* 
784 
2005 
2107 
2226 
U 
1* 
2510* 
2557 
U 
1# 

^M 
^M 
i« 
i# 

u 

1# 

784 
2005 
2107 
2226 

^» 

i# 
i# 
i# 
i# 
i# 

1* 
i# 
i» 
i# 
u 
1* 

2510# 
2537 
1# 
1* 
1# 
1* 
1* 
1* 
I# 
1# 



. ABS. 021006 



1749 
t)06 



155# 
153* 

986 
2008 
2112 
2229 
153# 
606* 
2525 
2558 

155* 
155* 
155* 
153* 
153* 
153* 
2133 
155* 
986 
2008 
2112 
2229 
25 
206 
2057 
122 
2526 
79 
2555 
2405 



2576 
2559 
2288 
2525 
2558 
555 

4 

2510 
2248 
2445 
2767 



000 



1750 
686 



2301 
423 
1272 
2010 
2117 
2234 
2298 
686* 
2524 
2766 



2744 

448 
781 
2138 
425 
1272 
2010 
2117 
2254 



2524 
2766 



1751 
900 



2304 

481 
1479 
2015 
2122 
2537 
2567 

900* 
2525 



1752 
1051 



2596 
495 
1586 
2016 
2127 
2543 
2415 
1051* 
2526 



1753 1754 



1755 



1756 



2427 
501 
1590 
2025 
2152 
2435 
2450 



2506 
519 
1620 
2026 
2137 
2573 
2459 



2527 2528 



465 


i273 


1621 


199', 


785 


987 


2085 


2086 


2145 


2150 


2155 


2541 


481 
1478 


495 


500 


518 


1586 


1590 


1620 


2013 


2016 


2023 


2026 


2122 


2127 


2152 


2137 


2651 


2724 


2727 


2746 



2568 
524 
1625 
2082 
2144 
2595 
2546 


2807 
537 
1871 
2085 
2149 
2651 
2770 


541 
1929 
2089 
2154 
272^* 


552 
1975 
2095 
2159 
2728 


566 
1993 
2097 
2164 
27i,t 


^72 
1998 
2100 
2175 


578 
2000 
2101 
2220 


780 
2003 
2104 

2225 


2529 


2530 


2551 


2532 


2555 


2554 


2535 


2S56 


2001 
2090 


2006 
2094 


2011 
?C98 


2014 
2102 


2024 
2105 


2160 
2113 


2176 
2118 


2123 


525 
1625 
2082 
2H4 


556 
1871 
2085 
2149 


541 
^929 
2088 
2' 54 


551 
1975 
2092 
2159 


565 
1992 
2096 
2164 


571 
1998 
2100 
2175 


577 
2000 
2101 
2219 


779 
2003 
2104 
2223 



2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 
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SEO 0096 



ERRORS DETECTED- 0 

CERS8C.eiN.CERS8C.LST/CRF/S0L/NL:T0C=DSK2:CERS8C.S«L.DSKZ:CERS8C.P11 
RUN-TIME: ^ H 1 SECONDS 
RUN-TIME RATIO: 58/20=2.8 
CORE USED: 21K (41 PAGES) 



